Compartilhar via

TextRange2.RotatedBounds method (Office) (Método TextRange2.RotatedBounds [Office])

Obtém as coordenadas dos vértices da caixa de vinculação do texto para o intervalo de texto especificado. Somente leitura.

Sintaxe

expressão. RotatedBounds (X1, Y1, X2, Y2, X3, Y3, x4, y4)

expressão Uma expressão que devolve um objeto TextRange2 .

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
X1 Obrigatório Single Devolve a posição (em pontos) da coordenada X do primeiro vértice da caixa delimitadora do texto dentro do intervalo de texto especificado.
Y1 Obrigatório Single Devolve a posição (em pontos) da coordenada Y do primeiro vértice da caixa delimitadora do texto dentro do intervalo de texto especificado.
X2 Obrigatório Single Devolve a posição (em pontos) da coordenada X do segundo vértice da caixa delimitadora do texto dentro do intervalo de texto especificado.
Y2 Obrigatório Single Devolve a posição (em pontos) da coordenada Y do segundo vértice da caixa delimitadora do texto dentro do intervalo de texto especificado.
X3 Obrigatório Single Devolve a posição (em pontos) da coordenada X do terceiro vértice da caixa delimitadora do texto dentro do intervalo de texto especificado.
Y3 Obrigatório Single Devolve a posição (em pontos) da coordenada Y do terceiro vértice da caixa delimitadora do texto dentro do intervalo de texto especificado.
x4 Obrigatório Single Devolve a posição (em pontos) da coordenada X do quarto vértice da caixa delimitadora para o texto dentro do intervalo de texto especificado.
y4 Obrigatório Single Devolve a posição (em pontos) da coordenada Y do quarto vértice da caixa delimitadora do texto dentro do intervalo de texto especificado.

Comentários

A caixa delimitadora do texto não é igual ao objeto TextFrame2. Objeto TextFrame2 representa o contêiner no qual o texto pode residir. A caixa delimitadora de texto representa perímetro imediatamente ao redor do texto.

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).TextFrame2.TextRange2.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

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.

  • Last updated on