Método CanvasShapes.AddPicture (Word)

Agrega una imagen a un lienzo de dibujo. Devuelve un objeto Shape que representa la imagen y la agrega a la colección CanvasShapes.

Sintaxis

expresión. AddPicture( _FileName_ , _LinkToFile_ , _SaveWithDocument_ , _Left_ , _Top_ , _Width_ , _Height_ )

expresión requerida. Variable que representa un objeto CanvasShapes .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
FileName	Necesario	String	Ruta de acceso y nombre del archivo de la imagen.
LinkToFile	Opcional	Variant	True para vincular la imagen al archivo desde el que se creó. False para que la imagen sea una copia independiente del archivo. El valor predeterminado es False.
SaveWithDocument	Opcional	Variant	True para guardar la imagen vinculada con el documento. El valor predeterminado es False.
Left	Opcional	Variant	Posición, en puntos, del borde izquierdo de la nueva imagen con relación al lienzo de dibujo.
Top	Opcional	Variant	Posición, en puntos, del borde superior de la nueva imagen con relación al lienzo de dibujo.
Width	Opcional	Variant	Ancho de la imagen, en puntos.
Height	Opcional	Variant	Alto de la imagen, en puntos.

Ejemplo:

En este ejemplo, se agrega una imagen a un lienzo de dibujo recién creado en el documento activo.

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

Consulte también

CanvasShapes (colección)

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.