AddPicture Method

Microsoft Word Visual Basic

Show All

AddPicture Method

       

AddPicture method as it applies to the CanvasShapes object.

Adds a picture to a drawing canvas. Returns a Shape object that represents the picture and adds it to the CanvasShapes collection.

expression.AddPicture(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)

expression   Required. An expression that returns a CanvasShapes object.

FileName  Required String. The path and file name of the picture.

LinkToFile  Optional Variant. True to link the picture to the file from which it was created. False to make the picture an independent copy of the file. The default value is False.

SaveWithDocument  Optional Variant. True to save the linked picture with the document. The default value is False.

Left  Optional Variant. The position, measured in points, of the left edge of the new picture relative to the drawing canvas.

Top  Optional Variant. The position, measured in points, of the top edge of the new picture relative to the drawing canvas.

Width  Optional Variant. The width of the picture, in points.

Height  Optional Variant. The height of the picture, in points.

AddPicture method as it applies to the InlineShapes object.

Adds a picture to a document. Returns a Shape object that represents the picture and adds it to the InlineShapes collection.

expression.AddPicture(FileName, LinkToFile, SaveWithDocument, Range)

expression   Required. An expression that returns an InlineShapes object.

FileName  Required String. The path and file name of the picture.

LinkToFile  Optional Variant. True to link the picture to the file from which it was created. False to make the picture an independent copy of the file. The default value is False.

SaveWithDocument  Optional Variant. True to save the linked picture with the document. The default value is False.

Range  Optional Variant. The location where the picture will be placed in the text. If the range isn't collapsed, the picture replaces the range; otherwise, the picture is inserted. If this argument is omitted, the picture is placed automatically.

AddPicture method as it applies to the Shapes object.

Adds a picture to a document.  Returns a Shape object that represents the picture and adds it to the Shapes collection.

expression.AddPicture(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height, Anchor)

expression   Required. An expression that returns a Shapes object.

FileName  Required String. The path and file name of the picture.

LinkToFile  Optional Variant. True to link the picture to the file from which it was created. False to make the picture an independent copy of the file. The default value is False.

SaveWithDocument  Optional Variant. True to save the linked picture with the document. The default value is False.

Left  Optional Variant. The position, measured in points, of the left edge of the new picture relative to the anchor.

Top  Optional Variant. The position, measured in points, of the top edge of the new picture relative to the anchor.

Width  Optional Variant. The width of the picture, in points.

Height  Optional Variant. The height of the picture, in points.

Anchor  Optional Variant. The range to which the picture is bound. If Anchor is specified, the anchor is positioned at the beginning of the first paragraph in the anchoring range. If this argument is omitted, however, the anchor is placed automatically and the picture is positioned relative to the top and left edges of the page.

Example

As it applies to the CanvasShapes object.

This example adds a picture to a newly created drawing canvas in the active document.

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

As it applies to the Shapes object.

This example adds a picture to the active document. The picture is linked to the original file and is saved with the document.

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