Método TextRange.RotatedBounds (PowerPoint)

Artigo
04/07/2023

Retorna as coordenadas dos vértices da caixa de contorno de texto para o intervalo de texto especificado.

Sintaxe

expression. RotatedBounds( _X1_, _Y1_, _X2_, _Y2_, _X3_, _Y3_, _X4_, _Y4_ )

Expressão Uma variável que representa um objeto TextRange .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
X1, Y1	Obrigatório	Single	Retorna a posição (em pontos) do primeiro vértice da caixa de contorno para o texto dentro do intervalo de texto especificado.
X2, Y2	Obrigatório	Single	Retorna a posição (em pontos) do segundo vértice da caixa de contorno para o texto dentro do intervalo de texto especificado.
X3, Y3	Obrigatório	Single	Retorna a posição (em pontos) do terceiro vértice da caixa de contorno para o texto dentro do intervalo de texto especificado.
X4, Y4	Obrigatório	Single	Retorna a posição (em pontos) do quarto vértice da caixa de contorno para o texto dentro do intervalo de texto especificado.

Exemplo

Este exemplo usa os valores retornados pelos argumentos do método RotatedBounds desenhar uma forma livre que tenha as dimensões da caixa delimitadora de texto para a terceira palavra no intervalo de texto na forma um no slide um da apresentação ativa.

Dim x1 As Single, y1 As Single
Dim x2 As Single, y2 As Single
Dim x3 As Single, y3 As Single
Dim x4 As Single, y4 As Single
Dim myDocument As Slide

Set myDocument = ActivePresentation.Slides(1)

myDocument.Shapes(1).TextFrame.TextRange.Words(3).RotatedBounds _
    x1, y1, x2, y2, x3, y3, x4, y4

With myDocument.Shapes.BuildFreeform(msoEditingCorner, x1, y1)
    .AddNodes msoSegmentLine, msoEditingAuto, x2, y2
    .AddNodes msoSegmentLine, msoEditingAuto, x3, y3
    .AddNodes msoSegmentLine, msoEditingAuto, x4, y4
    .AddNodes msoSegmentLine, msoEditingAuto, x1, y1
    .ConvertToShape.ZOrder msoSendToBack
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.