Propriedade TextRange.BoundTop (PowerPoint)

Artigo
04/07/2023

Retorna a distância (em pontos) da parte superior da caixa delimitadora de texto do quadro de texto especificado até a parte superior do slide. Somente leitura.

Sintaxe

expression. BoundTop

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

Objeto TextRange

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.

Compartilhar via