鲁达 【分享成果，随喜正能量】宁可正而不足，不可邪而有余。相识满天下，知心能几人。书七成，戏三分，牛皮灯影胡编成。布施不如还债，修福不如避祸。勿以恶小而为之，勿以善小而不为。。
《VBA之Word应用》，是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到Word VBA 的妙处。本套教程共三册十六章，今日内容为第九章：Shapes对象和Shape对象的第1节：在文档中添加画布及图片
第一节 Shapes集合对象的属性和方法（一）
在引言部分，我们讲了什么是Shapes集合对象及Shape对象，我们这节开始逐步讲解这两个对象的属性和方法，并结合实例来给大家讲解具体的应用。这节我们的内容是Shapes集合对象的Count属性、AddCanvas方法、AddPicture方法。
1 S 属性
这个属性返回一个Long , 该值代表集合中的形状的数目。此为只读属性。
语法：ex
其中expression 是必须的代表一个Shapes集合的对象.
2 S 方法
这个方法在文档中添加绘图画布。返回一个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 S 方法
该方法在绘图画布上添加一幅图片。返回一个Shape对象, 该对象代表图片并将其添加到CanvasShapes集合中。
语法：ex(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.S(Left:=100, Top:=75, Width:=400, Height:=300)
'在画布中添加一个图形
myCanva.Canva FileName:=T & "\IMG图片.jpg", _
LinkToFile:=False, SaveWithDocument:=True, Left:=0, Top:=0, Width:=400, Height:=300
'提示用户当前文档中图形数
MsgBox "当前文档中的图形为：" & ActiveDocument.S
End Sub
代码截图：
代码的解读：（略）
代码的运行效果：
今日内容回向：
1 Word中Shapes集合对象的Count属性、AddCanvas方法、AddPicture方法的意义是什么？
2 如何利用VBA在当前文档中添加画布及图片？
本讲内容参考程序文件：Doc 009文档.docm
我20多年的VBA实践经验，全部浓缩在下面的各个教程及应用工具中：
【分享成果，随喜正能量】操千曲而后晓声，观千剑而后识器. 不比不知道，一比吓一跳. 乍富不知新受用，乍贫难改旧家风。精神到处文章老，学问深时意气平。若要断酒法，醒眼看醉人。。