图形的放大或缩小总结 前文档中图形的移动和翻转

【分享成果，随喜正能量】行走于世间，一草一木皆是美好，一花一鸟皆是馈赠，能够健康平安的生活，便是最幸福的事。。

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

第八节 Shape对象的方法（二）

大家好，我们这节继续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实践经验，全部浓缩在下面的各个教程及应用工具中：

【分享成果，随喜正能量】胜人者有力，自胜者强。克制那些看似忍不了的欲望，因为，一时的放纵，只会让人受更多的苦。唯有克制，才能战胜自己的弱点，才能从容生活。。

,