【分享成果，随喜正能量】行走于世间，一草一木皆是美好，一花一鸟皆是馈赠，能够健康平安的生活，便是最幸福的事。。
《VBA之Word应用》（10178982），是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到Word VBA 的妙处。本套教程共三册十六章，今日内容为第九章之第8节：当前文档中图形的移动和翻转
大家好，我们这节继续Shape对象方法的讲解，上一讲给大家讲解Shape对象的Duplicate 方法，PickUp方法和Apply方法，这节的内容是Flip方法、IncrementLeft方法和IncrementTop方法。
1 Shape.Flip方法此方法水平或垂直翻转一个图形
语法：expression.Flip(FlipCmd)
其中expression 是必须的，代表一个Shape对象的变量.
参数：
FlipCmd 必需 MsoFlipCmd 翻转方向。
MsoFlipCmd 枚举值：
1） msoFlipHorizontal 0 水平翻转。
2） msoFlipVertical 1 垂直翻转。
2 Shape.IncrementLeft方法此方法将指定形状水平移动指定的磅数。
语法：expression.IncrementLeft(Increment)
其中expression 是必须的，代表一个Shape对象的变量.
参数：
Increment 必需 Single 指定形状水平移动的距离，以磅为单位。 为正值时将形状右移；为负值时将形状左移。
3 Shape.IncrementTop方法此方法以指定磅数垂直移动指定形状。
语法：expression.IncrementRotation(Increment)
其中expression 是必须的，代表一个Shape对象的变量.
参数：
Increment 必需 Single 指定形状的水平旋转量，以度为单位。 为正值时顺时针旋转形状，为负值时逆时针旋转形状。
4 实例：添加图形并完成移动和翻转我们这讲的实例是完成图形的添加，翻转，移动，旋转。我们看下面的代码：
Sub mynzG()
Set myDoc = ActiveDocument
'向活动文档添加一个三角形，然后复制此三角形，再垂直翻转复制的三角形并将其设为红色。
With myDoc.Shapes.AddShape(Type:=msoShapeRightTriangle, Left:=150, _
Top:=150, Width:=50, Height:=50).Duplicate
.Fill.ForeColor.RGB = RGB(Red:=255, Green:=0, Blue:=0)
.Flip msoFlipVertical
End With
'复制_myDocument_上的第一个形状，设置该副本的填充，将其向右移动70磅，向上移动50磅，然后顺时针旋转30度。
With myDoc.Shapes(1).Duplicate
.Fill.PresetTextured msoTextureGranite
.IncrementLeft 70
.IncrementTop -50
.IncrementRotation 30
End With
End Sub
代码的截图：
代码的解读：（略）
代码的运行效果：
今日内容回向：
1 Word中Shape对象的Flip方法，IncrementLeft方法和IncrementTop方法的意义是什么？
2 如何利用VBA在当前文档中移动和旋转图形？
本讲内容参考程序文件：Doc 009文档.docm
我20多年的VBA实践经验，全部浓缩在下面的各个教程及应用工具中：
【分享成果，随喜正能量】胜人者有力，自胜者强。克制那些看似忍不了的欲望，因为，一时的放纵，只会让人受更多的苦。唯有克制，才能战胜自己的弱点，才能从容生活。。
,
