Propriedade TextRange.BoundHeight (PowerPoint)
Retorna a altura (em pontos) da caixa delimitadora de texto do quadro de texto especificado. Somente leitura.
Sintaxe
expression. BoundHeight
Expressão Uma variável que representa um objeto TextRange .
Valor de retorno
Único
Exemplo
Este exemplo adiciona um retângulo arredondado ao slide um da apresentação ativa. O retângulo tem as mesmas dimensões que a caixa delimitadora de texto da forma um.
With Application.ActivePresentation.Slides(1).Shapes
Set tr = .Item(1).TextFrame.TextRange
Set roundRect = .AddShape(msoShapeRoundedRectangle, _
tr.BoundLeft, tr.BoundTop, tr.BoundWidth, tr.BoundHeight)
End With
With roundRect.Fill
.ForeColor.RGB = RGB(255, 0, 128)
.Transparency = 0.75
End With
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.