Compartir a través de

Objeto Shapes (Publicador)

Una colección de objetos Shape que representan todas las formas de una página de una publicación. Cada objeto Shape representa un objeto en la capa de dibujo, como una autoforma, una forma libre, un objeto OLE o una imagen.

Nota:

Si desea trabajar con un subconjunto de las formas de un documento (por ejemplo, para hacer algo solo con las Autoformas del documento o solo con las formas seleccionadas), debe construir una colección ShapeRange que contenga las formas con las que desea trabajar.

Observaciones

Utilice la propiedad Page.Shapes para devolver la colección Shapes . Use Shapes (index), donde index es el número de índice, para devolver un único objeto Shape .

Nota:

Si desea hacer algo (por ejemplo, eliminar o establecer una propiedad) en todas las formas de una publicación al mismo tiempo, use el método Range para crear un objeto ShapeRange que contenga todas las formas de la colección Shapes y, a continuación, aplique la propiedad o el método adecuados al objeto ShapeRange .

Use uno de los métodos siguientes de la colección Shapes para agregar una forma a una publicación y devolver un objeto Shape que represente la forma recién creada:

Ejemplo

El ejemplo siguiente selecciona todas las formas de la primera página de la publicación activa.

Sub SelectAllShapes() 
    ActiveDocument.Pages(1).Shapes.SelectAll 
End Sub

En el ejemplo siguiente se agrega una nueva forma a la publicación activa.

Sub AddNewShape() 
    ActiveDocument.Pages(1).Shapes.AddShape Type:=msoShapeFoldedCorner, _ 
        Left:=50, Top:=50, Width:=100, Height:=200 
End Sub

En el ejemplo siguiente se voltea horizontalmente la forma uno en la primera página de la publicación activa.

Sub FlipShape() 
    ActiveDocument.Pages(1).Shapes(1).Flip FlipCmd:=msoFlipHorizontal 
End Sub

Métodos

Propiedades

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.

  • Last updated on