CanvasShapes.AddShape (Word)

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

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

AddShape (Type, Left, Top, Width, Height)

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

Arguments

O seguinte argumento é opcional

Type (Long) - O tipo de forma a ser retornado. Pode ser qualquer constante MsoAutoShape .

Left (Single) - A posição, medida em pontos, da borda esquerda da AutoForma.

Top (Single) - A posição, medida em pontos, da borda superior da AutoForma.

Width (Single) - A largura, medida em pontos, da AutoForma.

Height (Single) - A altura, medida em pontos, da AutoForma.