Compartilhar via

Objeto CanvasShapes (Word)

  • Artigo

Use a propriedade CanvasItems de um objeto Shape ou ShapeRange para retornar uma coleção CanvasShapes .

Comentários

Para adicionar formas a uma tela de desenho, use os seguintes métodos da coleção CanvasShapes : AddCallout, AddConnector, AddCurve, AddLabel, AddLine, AddPicture, AddPolyline, AddShape, AddTextbox, AddTextEffect ou BuildFreeform. O exemplo a seguir adiciona uma tela de desenho ao documento ativo e, em seguida, adiciona três formas à tela de desenho.

Sub AddCanvasShapes() 
 Dim shpCanvas As Shape 
 Dim shpCanvasShapes As CanvasShapes 
 Dim shpCnvItem As Shape 
 
 'Adds a new canvas to the document 
 Set shpCanvas = ActiveDocument.Shapes _ 
 .AddCanvas(Left:=100, Top:=75, _ 
 Width:=50, Height:=75) 
 Set shpCanvasShapes = shpCanvas.CanvasItems 
 
 'Adds shapes to the CanvasShapes collection 
 With shpCanvasShapes 
 .AddShape Type:=msoShapeRectangle, _ 
 Left:=0, Top:=0, Width:=50, Height:=50 
 .AddShape Type:=msoShapeOval, _ 
 Left:=5, Top:=5, Width:=40, Height:=40 
 .AddShape Type:=msoShapeIsoscelesTriangle, _ 
 Left:=0, Top:=25, Width:=50, Height:=50 
 End With 
End Sub

Use CanvasItems (index), onde index é o nome ou o número do índice, para retornar uma única forma na coleção CanvasShapes . O exemplo a seguir define as propriedades Line e Fill e inverte verticalmente a terceira forma em uma tela de desenho.

Sub CanvasShapeThree() 
 With ActiveDocument.Shapes(1).CanvasItems(3) 
 .Line.ForeColor.RGB = RGB(50, 0, 255) 
 .Fill.ForeColor.RGB = RGB(50, 0, 255) 
 .Flip msoFlipVertical 
 End With 
End Sub

Cada forma recebe um nome padrão quando é criada. Por exemplo, se você adicionar três formas diferentes a um documento, elas podem ser chamadas "Rectangle 2", "TextBox 3" e "Oval 4". Use a propriedade Name para fazer referência ao nome padrão ou para atribuir um nome mais significativo a uma forma.

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.