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

mais simples. RotatedBounds (X1, Y1, X2, Y2, X3, Y3, x4, y4)

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

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
X1 Obrigatório Single Retorna a posição (em pontos) da coordenada X do primeiro vértice da caixa delimitadora para o texto dentro do intervalo de texto especificado.
Y1 Obrigatório Single Retorna a posição (em pontos) da coordenada Y do primeiro vértice da caixa delimitadora para o texto dentro do intervalo de texto especificado.
X2 Obrigatório Single Retorna a posição (em pontos) da coordenada X do segundo vértice da caixa delimitadora para o texto dentro do intervalo de texto especificado.
Ano 2 Obrigatório Single Retorna a posição (em pontos) da coordenada Y do segundo vértice da caixa delimitadora para o texto dentro do intervalo de texto especificado.
X3 Obrigatório Single Retorna a posição (em pontos) da coordenada X do terceiro vértice da caixa delimitadora para o texto dentro do intervalo de texto especificado.
Ano 3 Obrigatório Single Retorna a posição (em pontos) da coordenada Y do terceiro vértice da caixa delimitadora para o texto dentro do intervalo de texto especificado.
x4 Obrigatório Single Retorna 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 Retorna a posição (em pontos) da coordenada Y do quarto vértice da caixa delimitadora para o 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