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.