CanvasShapes.AddPicture method (Word)
Adds a picture to a drawing canvas. Returns a Shape object that represents the picture and adds it to the CanvasShapes collection.
Syntax
expression. AddPicture( _FileName_ , _LinkToFile_ , _SaveWithDocument_ , _Left_ , _Top_ , _Width_ , _Height_ )
expression Required. A variable that represents a CanvasShapes object.
Parameters
| Name | Required/Optional | Data type | Description |
|---|---|---|---|
| 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. |
Example
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
See also
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.