Nota
O acceso a esta páxina require autorización. Pode tentar iniciar sesión ou modificar os directorios.
O acceso a esta páxina require autorización. Pode tentar modificar os directorios.
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 a partir del que se debe crear el objeto OLE. |
| LinkToFile | Obligatorio | MsoTriState | Determina si la imagen se vinculará al archivo a partir del que se creó. |
| SaveWithDocument | Obligatorio | MsoTriState | Determina si se 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, medida en puntos, del borde izquierdo de la imagen en relación con el borde izquierdo de la diapositiva. |
| Top | Obligatorio | Single | Posición, medida en puntos, del borde superior de la imagen en relación con el borde superior de la diapositiva. |
| Width | Opcional | Single | Ancho de la imagen, medido en puntos. |
| Height | Opcional | Single | Alto de la imagen, medido en puntos. |
Valor devuelto
Forma
Ejemplo
En este ejemplo se agrega una imagen creada a partir del archivo Music.bmp a myDocument. La imagen insertada se vincula al archivo a partir del que se creó y se guarda con myDocument.
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddPicture FileName:="c:\microsoft office\" & _
"clipart\music.bmp", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
Left:=100, Top:=100, Width:=70, Height:=70
Vea tambié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.