Word VBA教程:AddPicture方法

应用于 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 类型,可选。图片置于文本中的位置。如果该区域未折叠,那么图片将覆盖此区域,否则插入图片。如果忽略此参数,则自动放置图片。

应用于 Shapes对象的 AddPicture方法。

在文档中添加一幅图片。返回一个 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,锁定标记位于锁定区域第一段的段首。如果忽略此参数,则自动放置锁定标记,而图片参照页面的上边缘和左边缘定位。

VBA示例

当应用于 CanvasShapes对象时。

本示例在活动文档中新创建的画布上添加一幅图片。


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

当应用于 Shapes对象时。

本示例为活动文档添加一幅图片,该图片链接到原始文件并与文档一起保存。


Sub NewPicture()
    ActiveDocument.Shapes.AddPicture _
        FileName:="C:\Program Files\Microsoft Office\" _
            & "Office\Bitmaps\Styles\stone.bmp", _
        LinkToFile:=True, SaveWithDocument:=True
End Sub

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号