Shapes.AddPicture (Word)

Agrega una imagen a un lienzo de dibujo.

AddPicture (FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height, 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

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.

Anchor - Range