Метод TextRange.RotatedBounds (PowerPoint)

Статья
04/07/2023

Возвращает координаты вершин текстового ограничивающего поля для указанного текстового диапазона.

Синтаксис

выражение. RotatedBounds( _X1_, _Y1_, _X2_, _Y2_, _X3_, _Y3_, _X4_, _Y4_ )

Выражение Переменная, представляющая объект TextRange .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
X1, Y1	Обязательный	Single	Возвращает позицию (в точках) первой вершины ограничивающего поля для текста в указанном текстовом диапазоне.
X2, Y2	Обязательный	Single	Возвращает позицию (в точках) второй вершины ограничивающего поля для текста в указанном текстовом диапазоне.
X3, Y3	Обязательный	Single	Возвращает позицию (в точках) третьей вершины ограничивающего поля для текста в указанном текстовом диапазоне.
X4, Y4	Обязательный	Single	Возвращает позицию (в точках) четвертой вершины ограничивающего поля для текста в указанном текстовом диапазоне.

Пример

В этом примере используются значения, возвращаемые аргументами метода RotatedBounds , для рисования свободной формы с размерами текстового ограничивающего поля для третьего слова в текстовом диапазоне в форме один на слайде в активной презентации.

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

См. также

Объект TextRange

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через