【分享成果，随喜正能量】苦日子苦过,好日子享受,没必要令所有人都懂得和了解 。你对世界的认知，是你心灵的显现 。带着感激和欣赏得眼光，看待周遭一切，你会惊异于生活处处都是美好 。。
《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)
【利用VBA，在当前文档中旋转和放大图形】.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实践经验，全部浓缩在下面的各个教程及应用工具中：
【分享成果，随喜正能量】越是不能放下 ， 越容易失去；越想牢牢抓住，越消失得快 。越想拥有的，常不属于你；越想把握的，常已失去 。。