word文档怎么加画布在文档中添加画布及图片_word

【分享成果，随喜正能量】宁可正而不足，不可邪而有余。相识满天下，知心能几人。书七成，戏三分，牛皮灯影胡编成。布施不如还债，修福不如避祸。勿以恶小而为之，勿以善小而不为。。
《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 实例：在文档中添加画布及图片

【word文档怎么加画布在文档中添加画布及图片】下面我们看一下如何在当前文档中添加画布及在画布中添加图片。代码如下：
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
代码截图：