Shapes.AddLabel (Word)

Adiciona um rótulo de texto a uma tela de desenho.

AddLabel (Orientation, Left, Top, Width, Height, Anchor)

Sub NewCanvasTextLabel() 
 Dim shpCanvas As Shape 
 Dim shpLabel As Shape 
 
 'Add a drawing canvas to the active document 
 Set shpCanvas = ActiveDocument.Shapes.AddCanvas _ 
 (Left:=100, Top:=75, Width:=150, Height:=200) 
 
 'Add a label to the drawing canvas 
 Set

Arguments

O seguinte argumento é opcional

Orientation (Office.MsoTextOrientation) - A orientação do texto.

Left (Single) - A posição, medida em pontos, da borda esquerda do rótulo em relação à borda esquerda da tela de desenho.

Top (Single) - A posição, medida em pontos, da borda superior do rótulo em relação à borda superior da tela de desenho.

Width (Single) - A largura do rótulo, em pontos.

Height (Single) - A altura do rótulo, em pontos.

Optional arguments

The following argument is optional

Anchor - Range