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"

Vea también

Objeto Shapes

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.