【分享成果，随喜正能量】人生所有的不顺和委屈，都是与自己过不去，不如降服自心，修炼自己，锻造更快乐的人生。。

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

第十节 Shape对象的方法（四）

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

1 Shape.SetShapesDefaultProperties方法

此方法将指定形状的格式设置为形状的默认格式。

语法：expression.SetShapesDefaultProperties

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

新形状将继承默认形状的许多属性。2 Shape.Delete 方法

此方法将删除指定的图形节点。

语法：expression.Delete (Index)

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

参数：

Index 必需 Long 要删除的图形节点的数目。

3 Shape.Select方法

此方法选择指定的形状。

语法：expression.Select (Replace)

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

参数：

Replace 可选 Variant 如果添加形状,TRUE将替换所选内容。 FALSE将新形状添加到所选内容。

4 实例：以默认形状填充新图形

在下面的实例中，我们讲解一个以默认格式填充图形的实例，在这个实例中我们首先建立一个图形，并用特殊的格式进行处理，然后将这个格式设置为默认；最后我们建立一个新的图形，并用上述的格式填充。下面我们看代码：

Sub mynzI()

Set myDoc = ActiveDocument

With myDoc.Shapes

With .AddShape(msoShapeRectangle, 100, 100, 180, 160)

With .Fill

.ForeColor.RGB = RGB(0, 0, 255)

.BackColor.RGB = RGB(0, 204, 255)

.Patterned msoPatternHorizontalBrick

End With

' 设置上述格式为默认

.SetShapesDefaultProperties

'删除

.Select

.Delete

End With

' 添加一个新的形状

.AddShape msoShapeRectangle, 190, 190, 240, 230

End With

End Sub

代码截图：

代码的解读：（略）

代码的测试：

原始图形删除前：

添加新的图形后：

今日内容回向：

1 Word中Shape对象的SetShapesDefaultProperties方法，Delete方法和Select方法意义是什么？

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

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

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

【分享成果，随喜正能量】这一生，最难的是守住口，出言慢一分；最贵的是守得住心，浮躁少一点。与人为善，万事如愿。。