Compartilhar via

Método CanvasShapes.AddShape (Word)

Adiciona uma AutoForma a uma tela de desenho. Retorna um objeto Shape que representa a AutoForma.

Sintaxe

expressão. AddShape( _Type_ , _Left_ , _Top_ , _Width_ , _Height_ )

expressão Obrigatório. Uma variável que representa um objeto CanvasShapes .

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Type Obrigatório Long O tipo de forma a ser retornado. Pode ser qualquer constante MsoAutoShape.
Left Obrigatório Single A posição, medida em pontos, da borda esquerda da AutoForma.
Top Obrigatório Single A posição, medida em pontos, da borda superior da AutoForma.
Width Obrigatório Single A largura, medida em pontos, da AutoForma.
Height Obrigatório Single A altura, medida em pontos, da AutoForma.

Comentários

Para alterar o tipo de uma AutoForma que você tenha adicionado, defina a propriedade AutoShapeType.

Exemplo

Este exemplo cria uma nova tela de desenho no documento ativo e adiciona um círculo à tela.

Sub NewCanvasShape() 
 Dim shpCanvas As Shape 
 Dim shpCanvasShape As Shape 
 
 'Add a new drawing canvas to the active document 
 Set shpCanvas = ActiveDocument.Shapes.AddCanvas( _ 
 Left:=100, Top:=75, Width:=150, Height:=200) 
 
 'Add a circle to the drawing canvas 
 Set shpCanvasShape = shpCanvas.CanvasItems.AddShape( _ 
 Type:=msoShapeOval, Left:=25, Top:=25, _ 
 Width:=150, Height:=150) 
End Sub

Confira também

Coleção CanvasShapes

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.

  • Last updated on