【分享成果，随喜正能量】宁可正而不足，不可邪而有余。相识满天下，知心能几人。书七成，戏三分，牛皮灯影胡编成。布施不如还债，修福不如避祸。勿以恶小而为之，勿以善小而不为。。

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

第一节 Shapes集合对象的属性和方法（一）

在引言部分，我们讲了什么是Shapes集合对象及Shape对象，我们这节开始逐步讲解这两个对象的属性和方法，并结合实例来给大家讲解具体的应用。这节我们的内容是Shapes集合对象的Count属性、AddCanvas方法、AddPicture方法。

1 Shapes.Count 属性

这个属性返回一个Long , 该值代表集合中的形状的数目。此为只读属性。

语法：expression.Count

其中expression 是必须的代表一个Shapes集合的对象.

2 Shapes.AddCanvas 方法

这个方法在文档中添加绘图画布。返回一个Shape对象，该对象代表绘图画布并将其添加到Shapes集合。

语法：expression. AddCanvas(Left,Top,Width, Height,Anchor)

其中expression 是必须的代表一个Shapes集合的对象.

参数：

1）Left 必需 Single 绘图画布左边缘相对于定位标记的位置（以磅为单位）。

2）Top 必需 Single 绘图画布上边缘相对于锁定标记的位置（以磅为单位）。

3）Width 必需 Single 绘图画布的宽度（以磅为单位）。

4）Height 必需 Single 绘图画布的高度（以磅为单位）。

5）Anchor 可选 Variant 一个Range对象，该对象代表画布绑定到的文本。 如果指定了 Anchor，锁定标记位于锁定区域第一段的开头。 如果省略该参数，将自动选定锁定区域，而画布将相对于页面的上边缘和左边缘进行定位。

3 Shapes.AddPicture 方法

该方法在绘图画布上添加一幅图片。返回一个Shape对象, 该对象代表图片并将其添加到CanvasShapes集合中。

语法：expression.AddPicture(FileName,LinkToFile,SaveWithDocument,Left,Top,Width, Height)

其中expression 是必须的代表一个Shapes集合的对象.

参数：

1）FileName 必需 String 图片的路径和文件名。

2）LinkToFile 可选 Variant 如果为TRUE 要将图片链接到创建它的文件。 False 使图片文件的独立副本。 默认值为 False 。

3）SaveWithDocument 可选 Variant 如果为TRUE 要随文档一起保存的链接的图片。 默认值为 False。

4）Left 可选 Variant 新图片的左边缘相对于绘图画布的位置，以磅为单位。

5）Top 可选 Variant 新图片的上边缘相对于绘图画布的位置，以磅为单位。

6）Width 可选 Variant 图片的宽度，以磅为单位。

7）Height 可选 Variant 图片的高度，以磅为单位。

4 实例：在文档中添加画布及图片

下面我们看一下如何在当前文档中添加画布及在画布中添加图片。代码如下：

Sub mynz()

Dim myCanva As Shape

'添加一个画布

Set myCanva = ActiveDocument.Shapes.AddCanvas(Left:=100, Top:=75, Width:=400, Height:=300)

'在画布中添加一个图形

myCanva.CanvasItems.AddPicture FileName:=ThisDocument.Path & "IMG图片.jpg", _

LinkToFile:=False, SaveWithDocument:=True, Left:=0, Top:=0, Width:=400, Height:=300

'提示用户当前文档中图形数

MsgBox "当前文档中的图形为：" & ActiveDocument.Shapes.Count

End Sub

代码截图：

代码的解读：（略）

代码的运行效果：

今日内容回向：

1 Word中Shapes集合对象的Count属性、AddCanvas方法、AddPicture方法的意义是什么？

2 如何利用VBA在当前文档中添加画布及图片？

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

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

【分享成果，随喜正能量】操千曲而后晓声，观千剑而后识器. 不比不知道，一比吓一跳. 乍富不知新受用，乍贫难改旧家风。精神到处文章老，学问深时意气平。若要断酒法，醒眼看醉人。。