Compartilhar via

Objeto Shapes (Publisher)

  • Artigo

Uma coleção de objetos Shape que representam todas as formas em uma página de uma publicação. Cada objeto Shape representa um objeto na camada de desenho, como uma AutoForma, uma forma livre, um objeto OLE ou uma imagem.

Observação

Se você quiser trabalhar com um subconjunto das formas em um documento, por exemplo, para fazer algo apenas com o AutoShapes no documento ou apenas para as formas selecionadas, você deve construir uma coleção ShapeRange que contenha as formas com as quais deseja trabalhar.

Comentários

Use a propriedade Page.Shapes para retornar a coleção Shapes . Use Shapes (index), em que o índice é o número de índice, para retornar um único objeto Shape .

Observação

Se você quiser fazer algo (como excluir ou definir uma propriedade) para todas as formas em uma publicação ao mesmo tempo, use o método Range para criar um objeto ShapeRange que contenha todas as formas na coleção Shapes e aplique a propriedade ou método apropriado ao objeto ShapeRange .

Use um dos seguintes métodos da coleção Shapes para adicionar uma forma a uma publicação e retornar um objeto Shape que representa a forma recém-criada:

Exemplo

O exemplo a seguir seleciona todas as formas na primeira página da publicação ativa.

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

O exemplo a seguir adiciona uma nova forma à publicação ativa.

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

O exemplo a seguir inverte horizontalmente a forma um na primeira página da publicação ativa.

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

Métodos

Propriedades

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.