Método Shapes.AddOLEObject (PowerPoint)
Crea un objeto OLE. Devuelve un objeto Shape que representa el nuevo objeto OLE.
Sintaxis
expresión. AddOLEObject
( _Left_
, _Top_
, _Width_
, _Height_
, _ClassName_
, _FileName_
, _DisplayAsIcon_
, _IconFileName_
, _IconIndex_
, _IconLabel_
, _Link_
)
expresión Variable que representa un objeto Shapes.
Parameters
Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
---|---|---|---|
Left | Opcional | Single | Posición (en puntos) de la esquina superior izquierda del nuevo objeto con respecto a la esquina superior izquierda de la diapositiva. El valor predeterminado es 0 (cero). |
Top | Opcional | Single | Posición (en puntos) de la esquina superior izquierda del nuevo objeto con respecto a la esquina superior izquierda de la diapositiva. El valor predeterminado es 0 (cero). |
Width | Opcional | Single | Ancho inicial del objeto OLE, en puntos. |
Height | Opcional | Single | Alto inicial del objeto OLE, en puntos. |
ClassName | Opcional | String | Nombre de clase largo OLE o ProgID del objeto que se debe crear. Debe especificar los argumentos ClassName o FileName del objeto, pero no ambos. |
FileName | Opcional | String | Archivo a partir del cual se va a crear el objeto. Si no se especifica la ruta, se utiliza la carpeta de trabajo actual. Debe especificar los argumentos ClassName o FileName del objeto, pero no ambos. |
DisplayAsIcon | Opcional | MsoTriState | Determina si el objeto OLE se mostrará como icono. |
IconFileName | Opcional | String | Archivo que contiene el icono que se desea mostrar. |
IconIndex | Opcional | Long | Índice del icono de IconFileName. El primer icono del archivo tiene el número de índice 0 (cero). Si no existe ningún icono con el número de índice dado en IconFileName, se utiliza el icono con el número de índice 1 (el segundo icono en el archivo). El valor predeterminado es 0 (cero). |
IconLabel | Opcional | String | Etiqueta (título) que se muestra debajo del icono. |
Link | Opcional | MsoTriState | Determina si el objeto OLE se vinculará al archivo desde el que se creó. Si especifica un valor para ClassName, este argumento debe ser msoFalse. |
Valor devuelto
Forma
Ejemplo
En este ejemplo se agrega un documento de Word vinculado a myDocument.
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddOLEObject Left:=100, Top:=100, _
Width:=200, Height:=300, _
FileName:="c:\my documents\testing.doc", Link:=msoTrue
En este ejemplo se agrega una nueva hoja de cálculo de Microsoft Excel a myDocument. La hoja de cálculo se mostrará como icono.
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddOLEObject Left:=100, Top:=100, _
Width:=200, Height:=300, _
ClassName:="Excel.Sheet", DisplayAsIcon:=True
En este ejemplo se agrega un botón de comando a myDocument.
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddOLEObject Left:=100, Top:=100, _
Width:=150, Height:=50, ClassName:="Forms.CommandButton.1"
Consulte 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.
Comentarios
https://aka.ms/ContentUserFeedback.
Próximamente: A lo largo de 2024 iremos eliminando gradualmente GitHub Issues como mecanismo de comentarios sobre el contenido y lo sustituiremos por un nuevo sistema de comentarios. Para más información, vea:Enviar y ver comentarios de