Método Shapes.AddTextbox (Publisher)
Adiciona um novo objeto Shape que representa uma caixa de texto à coleção Shapes especificada.
Sintaxe
expressão. AddTextbox (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 da caixa de texto. |
| Left | Obrigatório | Variant | A posição da borda esquerda da forma que representa a caixa de texto. |
| Top | Obrigatório | Variant | A posição da borda superior da forma que representa a caixa de texto. |
| Width | Obrigatório | Variant | A largura da forma que representa a caixa de texto. |
| Height | Obrigatório | Variant | A altura da forma que representa a caixa de texto. |
Valor de retorno
Forma
Comentários
Para os parâmetros 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").
O parâmetro Orientação pode ser uma das constantes PbTextOrientation declaradas na biblioteca de tipos do Microsoft Publisher e mostradas na tabela a seguir.
| Constante | Descrição |
|---|---|
| pbTextOrientationHorizontal | Uma caixa de texto horizontal para idiomas com escrita da esquerda para a direita. |
| pbTextOrientationRightToLeft | Uma caixa de texto horizontal para idiomas com escrita da direita para a esquerda. Esse valor não será efetivado se um idioma com escrita da direita para a esquerda não estiver selecionado. |
| pbTextOrientationVerticalEastAsia | Uma caixa de texto vertical para idiomas do leste asiático. Se for selecionado um idioma que não seja do leste asiático, o texto aparecerá girado 90 graus à direita. |
Exemplo
O exemplo a seguir adiciona uma nova caixa de texto à primeira página da publicação ativa.
Dim shpTextBox As Shape
Set shpTextBox = ActiveDocument.Pages(1).Shapes.AddTextBox _
(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.