Propriedade Page.Shapes (Publisher)

Retorna uma coleção de formas que representa todos os objetos de forma na publicação especificada. Essa coleção pode conter desenhos, formas, figuras, objetos OLE, controles ActiveX, objetos de texto e textos explicativos.

Sintaxe

expressão. Formas

Expressão Uma variável que representa um objeto Page .

Comentários

Para obter informações sobre como retornar um único membro de uma coleção, consulte Retornando um objeto de uma coleção.

Exemplo

Este exemplo adiciona um retângulo na primeira página da publicação ativa.

Sub AddNewRectangle() 
 ActiveDocument.Pages(1).Shapes.AddShape Type:=msoShapeRectangle, _ 
 Left:=5, Top:=25, Width:=100, Height:=50 
End Sub

Este exemplo define a textura de preenchimento de todas as formas na publicação ativa. Este exemplo pressupõe que há pelo menos uma forma na publicação ativa.

Sub SetNewTextureForAllShapes() 
 Dim shp As Shape 
 For Each shp In ActiveDocument.Pages(1).Shapes 
 shp.Fill.PresetTextured PresetTexture:=msoTextureOak 
 Next shp 
End Sub

Este exemplo adiciona uma sombra à primeira forma da publicação ativa. Este exemplo pressupõe que há pelo menos uma forma na publicação ativa.

Sub SetShadowForFirstShape() 
 ActiveDocument.Pages(1).Shapes(1).Shadow.Type = msoShadow6 
End Sub

Este exemplo exibe uma contagem de todas as formas na primeira página da publicação ativa. Este exemplo pressupõe que há pelo menos uma forma na publicação ativa.

Sub CountShapesOnFirstPage() 
 MsgBox "You have " & ActiveDocument.Pages(1) _ 
 .Shapes.Count & " shapes on the first page." 
End Sub

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.