苦日子苦过,好日子享受,没必要令所有人都懂得和了解。你对世界的认知，是你心灵的显现。带着感激和欣赏得眼光，看待周遭一切，你会惊异于生活处处都是美好。。
《VBA之Word应用》（），是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到WordVBA的妙处。本套教程共三册十六章，今日内容为第九章之第9节：利用VBA，在当前文档中旋转和放大图形
第九节Shape对象的方法（三）
大家好，我们这节继续Shape对象方法的讲解，上一讲给大家讲解了Flip方法、IncrementLeft方法和IncrementTop方法。这节给大家介绍Shape对象的IncrementRotation方法，ScaleHeight方法和ScaleWidth方法。
1Shape.IncrementRotation方法
此方法使指定的形状绕Z轴旋转指定的角度。
语法：expression.IncrementRotation(Increment)
其中expression是必须的，代表一个Shape对象的变量.
参数：
Increment必需Single指定形状的水平旋转量，以度为单位。为正值时顺时针旋转形状，为负值时逆时针旋转形状。
2Shape.ScaleHeight方法
此方法以指定的比例缩放形状的高度
语法：expression.ScaleHeight(Factor,RelativeToOriginalSize,Scale)
其中expression是必须的，代表一个Shape对象的变量.
参数：
1)Factor必需Single指定形状调整后的高度与当前或原始高度的比例。例如，要将一个矩形放大百分之五十，请将此参数指定为1.5。
2)RelativeToOriginalSize必需MsoTriState为扩展相对于原始大小的形状。False，则相对于当前大小缩放形状。仅当指定的形状是图片或OLE对象时，可以将此参数指定为True。
3)Scale可选MsoScaleFrom在缩放形状时，形状中位置不变的部分。
3Shape.ScaleWidth方法
此方法按指定的比例缩放形状的宽度。
语法：expression.ScaleWidth(Factor,RelativeToOriginalSize,Scale)
其中expression是必须的，代表一个Shape对象的变量.
参数：
1)Factor必需Single指定形状调整后的高度与当前或原始高度的比例。例如，要将一个矩形放大百分之五十，请将此参数指定为1.5。
2)RelativeToOriginalSize必需MsoTriState扩展相对于原始大小的形状。False，则相对于当前大小缩放形状。仅当指定的形状是图片或OLE对象时，可以将此参数指定为True。
3)Scale可选MsoScaleFrom在缩放形状时，形状中位置不变的部分。
4实例：对象的旋转和缩放
在这节的实例中，我们给大家讲解对象的旋转和缩放，下面看代码：
SubmynzH()
SetmyDoc=ActiveDocument
myDoc.Shapes.AddShapeType:=msoShapeRightTriangle,Left:=,Top:=,Width:=,Height:=
复制第一个形状，设置该副本的填充，将其向右移动磅，向上移动50磅，然后顺时针旋转30度。
WithmyDoc.Shapes(1).Duplicate
.Fill.PresetTexturedmsoTextureGranite
.IncrementLeft70
.IncrementTop-50
.IncrementRotation30
EndWith
将第一个图形放大至原始高度和宽度的%，
WithmyDoc.Shapes(1)
.ScaleHeight1.75,False
.ScaleWidth1.75,False
EndWith
EndSub
代码截图：
代码的解读：（略）
代码的运行效果：
我们运行上面代码，会的得到下面的界面：
今日内容回向：
1Word中Shape对象的Shape对象的IncrementRotation方法，ScaleHeight方法和ScaleWidth方法的意义是什么？
2如何利用VBA在当前文档中旋转图形和放大图形？
本讲内容参考程序文件：Doc文档.docm
我20多年的VBA实践经验，全部浓缩在下面的各个教程及应用工具中：
越是不能放下，越容易失去；越想牢牢抓住，越消失得快。越想拥有的，常不属于你；越想把握的，常已失去。。