Método TextRange2.RotatedBounds (Office)
Obtiene las coordenadas de los vértices del cuadro delimitador de texto del intervalo de texto especificado. Solo lectura.
Sintaxis
expresión. RotatedBounds (X1, Y1, X2, Y2, X3, Y3, x4, y4)
Expresión Expresión que devuelve un objeto TextRange2 .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| X1 | Obligatorio | Single | Devuelve la posición (en puntos) de la coordenada X del primer vértice del cuadro de límite para el texto dentro del intervalo de texto especificado. |
| Y1 | Obligatorio | Single | Devuelve la posición (en puntos) de la coordenada Y del primer vértice del cuadro de límite para el texto dentro del intervalo de texto especificado. |
| X2 | Obligatorio | Single | Devuelve la posición (en puntos) de la coordenada X del segundo vértice del cuadro de límite del texto dentro del intervalo de texto especificado. |
| Y2 | Obligatorio | Single | Devuelve la posición (en puntos) de la coordenada Y del segundo vértice del cuadro de límite del texto dentro del intervalo de texto especificado. |
| X3 | Obligatorio | Single | Devuelve la posición (en puntos) de la coordenada X del tercer vértice del cuadro de límite del texto dentro del intervalo de texto especificado. |
| Y3 | Obligatorio | Single | Devuelve la posición (en puntos) de la coordenada Y del tercer vértice del cuadro de límite del texto dentro del intervalo de texto especificado. |
| x4 | Obligatorio | Single | Devuelve la posición (en puntos) de la coordenada X del cuarto vértice del cuadro de límite del texto dentro del intervalo de texto especificado. |
| y4 | Obligatorio | Single | Devuelve la posición (en puntos) de la coordenada Y del cuarto vértice del cuadro de límite del texto dentro del intervalo de texto especificado. |
Comentarios
El cuadro delimitador del texto no es el mismo que el objeto TextFrame2. El objeto TextFrame2 representa el contenedor en el que puede residir el texto. El cuadro delimitador del texto representa el perímetro que rodea inmediatamente el texto.
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).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
Consulte también
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.