Compartir a través de


Método Shapes.AddPicture (Excel)

Crea una imagen de un archivo existente. Devuelve un objeto Shape que representa la nueva imagen.

Sintaxis

expresión. AddPicture (FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)

expresión Variable que representa un objeto Shapes.

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
FileName Necesario String Archivo desde el que se va a crear la imagen.
LinkToFile Obligatorio MsoTriState El archivo con el que hay que vincularse. Use msoFalse para que la imagen sea una copia independiente del archivo. Use msoTrue para vincular la imagen al archivo desde el que se creó.
SaveWithDocument Necesario MsoTriState Para guardar la imagen con el documento. Use msoFalse para almacenar solo la información del vínculo en el documento. Use msoTrue para guardar la imagen vinculada con el documento en el que se inserta. Este argumento debe ser msoTrue si LinkToFile es msoFalse.
Left Obligatorio Single Posición (en puntos) de la esquina superior izquierda de la imagen en relación con la esquina superior izquierda del documento.
Top Obligatorio Single La posición (en puntos) del vértice superior izquierdo de la imagen con relación a la parte superior del documento.
Width Obligatorio Single Ancho de la imagen en puntos (escriba -1 para conservar el ancho del archivo existente).
Height Obligatorio Single Alto de la imagen en puntos (escriba -1 para conservar el alto del archivo existente).

Valor devuelto

Shape

Ejemplo:

En este ejemplo se agrega una imagen creada a partir del archivo Music.bmp a myDocument. La imagen insertada está vinculada al archivo desde el que se creó y se guarda con myDocument.

Set myDocument = Worksheets(1) 
myDocument.Shapes.AddPicture _ 
    "c:\microsoft office\clipart\music.bmp", _ 
    True, True, 100, 100, 70, 70

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.