在文档中添加画布及图片

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