【分享成果，随喜正能量】苦日子苦过,好日子享受,没必要令所有人都懂得和了解。你对世界的认知，是你心灵的显现。带着感激和欣赏得眼光，看待周遭一切，你会惊异于生活处处都是美好。。

《VBA之Word应用》（10178982），是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到Word VBA 的妙处。本套教程共三册十六章，今日内容为第九章之第9节：利用VBA，在当前文档中旋转和放大图形

第九节 Shape对象的方法（三）

大家好，我们这节继续Shape对象方法的讲解，上一讲给大家讲解了Flip方法、IncrementLeft方法和IncrementTop方法。这节给大家介绍Shape对象的IncrementRotation方法，ScaleHeight方法和ScaleWidth方法。

1 Shape.IncrementRotation方法

此方法使指定的形状绕Z轴旋转指定的角度。

语法：expression.IncrementRotation(Increment)

其中expression 是必须的，代表一个Shape对象的变量.

参数：

Increment 必需 Single 指定形状的水平旋转量，以度为单位。为正值时顺时针旋转形状，为负值时逆时针旋转形状。

2 Shape.ScaleHeight 方法

此方法以指定的比例缩放形状的高度

语法：expression.ScaleHeight (Factor, RelativeToOriginalSize, Scale)

其中expression 是必须的，代表一个Shape对象的变量.

参数：

1) Factor 必需 Single 指定形状调整后的高度与当前或原始高度的比例。 例如，要将一个矩形放大百分之五十，请将此参数指定为 1.5。

2) RelativeToOriginalSize 必需 MsoTriState 为 扩展相对于原始大小的形状。 False ，则相对于当前大小缩放形状。 仅当指定的形状是图片或 OLE 对象时，可以将此参数指定 为 True 。

3) Scale 可选 MsoScaleFrom 在缩放形状时，形状中位置不变的部分。

3 Shape.ScaleWidth 方法

此方法按指定的比例缩放形状的宽度。

语法：expression.ScaleWidth (Factor, RelativeToOriginalSize, Scale)

其中expression 是必须的，代表一个Shape对象的变量.

参数：

1) Factor 必需 Single 指定形状调整后的高度与当前或原始高度的比例。 例如，要将一个矩形放大百分之五十，请将此参数指定为 1.5。

2) RelativeToOriginalSize 必需 MsoTriState 扩展相对于原始大小的形状。 False ，则相对于当前大小缩放形状。 仅当指定的形状是图片或 OLE 对象时，可以将此参数指定 为 True 。

3) Scale 可选 MsoScaleFrom 在缩放形状时，形状中位置不变的部分。

4 实例：对象的旋转和缩放

在这节的实例中，我们给大家讲解对象的旋转和缩放，下面看代码：

Sub mynzH()

Set myDoc = ActiveDocument

myDoc.Shapes.AddShape Type:=msoShapeRightTriangle, Left:=200, Top:=200, Width:=150, Height:=150

'复制第一个形状，设置该副本的填充，将其向右移动100磅，向上移动50磅，然后顺时针旋转30度。

With myDoc.Shapes(1).Duplicate

.Fill.PresetTextured msoTextureGranite

.IncrementLeft 70

.IncrementTop -50

.IncrementRotation 30

End With

'将第一个图形放大至原始高度和宽度的175%，

With myDoc.Shapes(1)

.ScaleHeight 1.75, False

.ScaleWidth 1.75, False

End With

End Sub

代码截图：

代码的解读：（略）

代码的运行效果：

我们运行上面代码，会的得到下面的界面：

今日内容回向：

1 Word中Shape对象的Shape对象的IncrementRotation方法，ScaleHeight方法和ScaleWidth方法的意义是什么？

2 如何利用VBA在当前文档中旋转图形和放大图形？

本讲内容参考程序文件：Doc 009文档.docm

我20多年的VBA实践经验，全部浓缩在下面的各个教程及应用工具中：

【分享成果，随喜正能量】越是不能放下，越容易失去；越想牢牢抓住，越消失得快。越想拥有的，常不属于你；越想把握的，常已失去。。