应用于 CanvasShapes 对象的 AddPicture 方法。
在画布上添加一幅图片。返回一个 Shape 对象,该对象代表图片并将其添加至 CanvasShapes 集合。
expression.AddPicture(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)
expression 必需。该表达式返回一个 CanvasShapes 对象。
FileName String 类型,必需。图片的路径和文件名。
LinkToFile Variant 类型,可选。如果为 True,则将图片链接到创建该对象的文件;如果为 False,则将图片作为该文件的独立副本。默认值是 False。
SaveWithDocument Variant 类型,可选。如果为 True,则将链接的图片与文档一起保存。默认值是 False。
Left Variant 类型,可选。新图片的左边缘相对于画布的位置,以磅为单位。
Top Variant 类型,可选。新图片的上边缘相对于画布的位置,以磅为单位。
Width Variant 类型,可选。图片的宽度,以磅为单位。
Height Variant 类型,可选。图片的高度,以磅为单位。
应用于 InlineShapes 对象的 AddPicture 方法。
在文档中添加一幅图片。返回一个 Shape 对象,该对象代表图片,并将其添加至 InlineShapes 集合。
expression.AddPicture(FileName, LinkToFile, SaveWithDocument, Range)
expression 必需。该表达式返回一个 InlineShapes 对象。
FileName String 类型,必需。图片的路径和文件名。
LinkToFile Variant 类型,可选。如果为 True,则将图片链接到创建该对象的文件;如果为 False,则将图片作为该文件的独立副本。默认值是 False。
SaveWithDocument Variant 类型,可选。如果为 True,则将链接的图片与文档一起保存。默认值是 False。
Range Variant 类型,可选。图片置于文本中的位置。如果该区域未折叠,那么图片将覆盖此区域,否则插入图片。如果忽略此参数,则自动放置图片。
在文档中添加一幅图片。返回一个 Shape 对象,该对象代表图片,并将其添加至 Shapes 集合。
expression.AddPicture(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height, Anchor)
expression 必需。该表达式返回一个 Shapes 对象。
FileName String 类型,必需。图片的路径和文件名。
LinkToFile Variant 类型,可选。如果为 True,则将图片链接到创建该对象的文件;如果为 False,则将图片作为该文件的独立副本。默认值是 False。
SaveWithDocument Variant 类型,可选。如果为 True,则将链接的图片与文档一起保存。默认值是 False。
Left Variant 类型,可选。新图片的左边缘相对于锁定区域的位置,以磅为单位。
Top Variant 类型,可选。新图片的上边缘相对于锁定区域的位置,以磅为单位。
Width Variant 类型,可选。图片的宽度,以磅为单位。
Height Variant 类型,可选。图片的高度,以磅为单位。
Anchor Variant 类型,可选。指定图片的锁定区域。如果指定了 Anchor,锁定标记位于锁定区域第一段的段首。如果忽略此参数,则自动放置锁定标记,而图片参照页面的上边缘和左边缘定位。
本示例在活动文档中新创建的画布上添加一幅图片。
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
本示例为活动文档添加一幅图片,该图片链接到原始文件并与文档一起保存。
Sub NewPicture()
ActiveDocument.Shapes.AddPicture _
FileName:="C:\Program Files\Microsoft Office\" _
& "Office\Bitmaps\Styles\stone.bmp", _
LinkToFile:=True, SaveWithDocument:=True
End Sub