CanvasShapes.AddPicture (Word)
Agrega una imagen a un lienzo de dibujo.
AddPicture (FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)
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
Arguments
Un argumento con nombre
FileName (String) - Ruta de acceso y nombre del archivo de la imagen.
Optional arguments
Los siguientes argumentos son opcionales
LinkToFile (Boolean) - True para vincular la imagen al archivo desde el que se creó.
SaveWithDocument (Boolean) - True para guardar la imagen vinculada con el documento.
Left (Long) - Posición, en puntos, del borde izquierdo de la nueva imagen con relación al lienzo de dibujo.
Top (Long) - Posición, en puntos, del borde superior de la nueva imagen con relación al lienzo de dibujo.
Width (Long) - Ancho de la imagen, en puntos.
Height (Long) - Alto de la imagen, en puntos.