Compartir a través de

Método Shapes.AddOLEObject (Publisher)

Agrega un nuevo objeto Shape que representa un objeto OLE a la colección Shapes especificada.

Sintaxis

expresión. AddOLEObject (Left, Top, Width, Height, ClassName, FileName, Link)

expresión Variable que representa un objeto Shapes.

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
Left Obligatorio Variant Posición del borde izquierdo de la forma que representa el objeto OLE.
Top Obligatorio Variant Posición del borde superior de la forma que representa el objeto OLE.
Width Opcional Variant Ancho de la forma que representa al objeto OLE. El valor predeterminado es -1, que indica que el ancho de la forma se establece automáticamente en función de los datos del objeto.
Height Opcional Variant Alto de la forma que representa al objeto OLE. El valor predeterminado es -1, lo que significa que el alto de la forma se establece automáticamente en función de los datos del objeto.
ClassName Opcional String Nombre de clase del objeto OLE que se va a agregar.
FileName Opcional String Nombre de archivo del objeto OLE que se va a agregar. Si no se especifica la ruta de acceso, se utiliza la carpeta de trabajo actual.
Link Opcional MsoTriState Determina si el objeto OLE se vincula o se incrusta en la publicación.

Valor devuelto

Forma

Comentarios

Para los argumentos Left, Top, Width y Height , los valores numéricos se evalúan en puntos; Las cadenas pueden estar en cualquier unidad compatible con Microsoft Publisher (por ejemplo, "2,5 in").

Debe especificar un ClassName o un FileName. Si no se especifica ningún argumento o si se especifican los dos, se produce un error.

El parámetro Link puede ser una de las constantes MsoTriState declaradas en la biblioteca de tipos de Microsoft Office y mostradas en la tabla siguiente.

Constante Descripción
msoFalse El objeto OLE está incrustado.
msoTrue El objeto OLE está vinculado. Valor predeterminado.

Ejemplo

En el siguiente ejemplo se agrega una hoja de cálculo de Microsoft Office Excel a la primera página de la publicación activa y se activa dicha hoja para su modificación.

Dim shpSheet As Shape 
 
Set shpSheet = ActiveDocument.Pages(1).Shapes.AddOLEObject _ 
 (Left:=72, Top:=72, ClassName:="Excel.Sheet") 
 
shpSheet.OLEFormat.Activate

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.

  • Last updated on