Método TextRange.RotatedBounds (PowerPoint)

Devuelve las coordenadas de los vértices del cuadro de límite de texto en el intervalo de texto especificado.

Sintaxis

expresión. RotatedBounds( _X1_, _Y1_, _X2_, _Y2_, _X3_, _Y3_, _X4_, _Y4_ )

Expresión Variable que representa un objeto TextRange .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
X1, Y1	Obligatorio	Single	Devuelve la posición (en puntos) del primer vértice del cuadro de límite del texto en el intervalo de texto especificado.
X2, Y2	Obligatorio	Single	Devuelve la posición (en puntos) del segundo vértice del cuadro de límite del texto en el intervalo de texto especificado.
X3, Y3	Obligatorio	Single	Devuelve la posición (en puntos) del tercer vértice del cuadro de límite del texto en el intervalo de texto especificado.
X4, Y4	Obligatorio	Single	Devuelve la posición (en puntos) del cuarto vértice del cuadro de límite del texto en el intervalo de texto especificado.

Ejemplo:

Este ejemplo utiliza los valores devueltos por los argumentos del método RotatedBounds para dibujar una forma libre con las dimensiones del cuadro delimitador de texto de la tercera palabra del intervalo de texto de la forma uno de la diapositiva uno de la presentación activa.

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

Consulte también

Objeto TextRange

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.