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

Свойство ShapeRange.Rotation (Publisher)

  • Статья

Возвращает или задает значение Single , представляющее количество градусов, в которых указанная фигура повернута вокруг оси Z. Положительное значение указывает на поворот по часовой стрелке; отрицательное значение указывает на вращение против часовой стрелки. Для чтения и записи.

Синтаксис

expression. Вращения

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

Замечания

Чтобы задать поворот трехмерной фигуры вокруг оси X или оси Y, используйте свойство RotationX или RotationY объекта ThreeDFormat .

Пример

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

Sub SetShapeRotation() 
 Dim sngRotation As Single 
 Dim intCount As Integer 
 With ActiveDocument.Pages(1).Shapes 
 sngRotation = .Item(1).Rotation 
 For intCount = 1 To .Count 
 .Item(intCount).Rotation = sngRotation 
 Next intCount 
 End With 
End Sub

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

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