CanvasShapes.AddPicture 方法 (Word)
在绘图画布上添加一幅图片。 返回一个 Shape 对象，该对象代表图片并将其添加到 CanvasShapes 集合。
语法
expression. AddPicture( _FileName_ , _LinkToFile_ , _SaveWithDocument_ , _Left_ , _Top_ , _Width_ , _Height_ )
expression 是必需的。 一个代表 CanvasShapes 对象的变量。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| FileName | 必需 | String | 图片的路径和文件名。 |
| LinkToFile | 可选 | Variant | 真 要将图片链接到创建它的文件。 False 使图片文件的独立副本。 默认值为 False 。 |
| SaveWithDocument | 可选 | Variant | 真 要随文档一起保存的链接的图片。 默认值为 False 。 |
| Left | 可选 | Variant | 新图片的左边缘相对于绘图画布的位置，以磅为单位。 |
| Top | 可选 | Variant | 新图片的上边缘相对于绘图画布的位置，以磅为单位。 |
| Width | 可选 | Variant | 图片的宽度，以磅为单位。 |
| Height | 可选 | Variant | 图片的高度（以磅为单位）。 |
示例
以下示例在活动文档中新创建的绘图画布上添加一幅图片。
Sub NewCanvasPicture()
Dim shpCanvas As Shape
'Add a drawing canvas to the active document
Set shpCanvas = ActiveDocument.Shapes _
.AddCanvas(Left:=100, Top:=75, _
Width:=200, Height:=300)
'Add a graphic to the drawing canvas
shpCanvas.CanvasItems.AddPicture _
FileName:="C:\Program Files\Microsoft Office\" & _
"Office\Bitmaps\Styles\stone.bmp", _
LinkToFile:=False, SaveWithDocument:=True
End Sub
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。