Objeto CanvasShapes (Word)
Use a propriedade CanvasItems de um objeto Shape ou ShapeRange para retornar uma coleção CanvasShapes .
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.
- AddCallout
- AddConnector
- AddCurve
- AddLabel
- AddLine
- AddPicture
- AddPolyline
- AddShape
- AddTextbox
- AddTextEffect
- BuildFreeform
- Item
- Range
- SelectAll
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.