Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Cria uma caixa de texto. Retorna um objeto Shape representando a nova caixa de texto.
Sintaxe
expression.
AddTextbox( _Orientation_, _Left_, _Top_, _Width_, _Height_ )
expressão Uma variável que representa um objeto Formas.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Orientation | Obrigatório | MsoTextOrientation | A orientação do texto. Algumas dessas constantes podem não estar disponíveis para você, dependendo do suporte a idioma (inglês americano, por exemplo) que você selecionou ou instalou. |
| Left | Obrigatório | Single | A posição, medida em pontos, da borda esquerda da caixa de texto em relação à borda esquerda do slide. |
| Top | Obrigatório | Single | A posição, medida em pontos, da borda superior da caixa de texto em relação à borda superior do slide |
| Width | Obrigatório | Single | A largura da caixa de texto, medida em pontos. |
| Height | Obrigatório | Single | A altura da caixa de texto, medida em pontos. |
Valor de retorno
Forma
Exemplo
Este exemplo adiciona uma caixa de texto contendo o texto "Test Box" a myDocument.
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
Left:=100, Top:=100, Width:=200, Height:=50).TextFrame _
.TextRange.Text = "Test Box"
Confira também
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.