Método Shapes.AddLabel (Publisher)

Adiciona um novo objeto Shape que representa um rótulo de texto à coleção Shapes especificada.

Sintaxe

expressão. AddLabel (Orientação, Esquerda, Superior, Largura, Altura)

expressão Uma variável que representa um objeto Formas.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Orientation	Obrigatório	PbTextOrientation	A orientação do rótulo. Pode ser uma das constantes PbTextOrientation .
Left	Obrigatório	Variant	A posição da borda esquerda da forma que representa o rótulo de texto.
Top	Obrigatório	Variant	A posição da borda superior da forma que representa o rótulo de texto.
Width	Obrigatório	Variant	A largura da forma que representa o rótulo de texto.
Height	Obrigatório	Variant	A altura da forma que representa o rótulo de texto.

Valor de retorno

Forma

Comentários

Para os argumentos Esquerdo, Superior, Largura e Altura , os valores numéricos são avaliados em pontos; cadeias de caracteres podem estar em todas as unidades com suporte do Microsoft Publisher (por exemplo, "2.5 in").

Exemplo

O exemplo a seguir adiciona um novo rótulo de texto à primeira página da publicação ativa.

Dim shpLabel As Shape 
 
Set shpLabel = ActiveDocument.Pages(1).Shapes.AddLabel _ 
 (Orientation:=pbTextOrientationHorizontal, _ 
 Left:=144, Top:=144, _ 
 Width:=72, Height:=18)

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.