Objeto Formas (Publisher)

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 formas en un documento, por ejemplo, para hacer algo solo con las autoformas del documento o solo con las formas seleccionadas, debe crear una colección ShapeRange que contenga las formas con las que desea trabajar.

Comentarios

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

Nota:

Si desea realizar una acción (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 aplique la propiedad o el método apropiados 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