Метод Shape.IncrementRotation (Project)

Статья
04/07/2023

Поворачивает фигуру вокруг оси Z на указанное число градусов.

Синтаксис

выражение. IncrementRotation(Приращение)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Приращение	Обязательный	Single	Количество градусов, в которых фигура должна поворачиваться. Положительное значение поворачивает фигуру по часовой стрелке; отрицательное значение поворачивает его против часовой стрелки.
Приращение	Обязательный	FLOAT
Имя	Обязательный или необязательный	Тип данных	Описание

Возвращаемое значение

Nothing

Замечания

Параметр Increment может быть значением от -3600 до 3600.

Пример

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

Sub RotateShapes()
    Dim theReport As Report
    Dim shp1 As shape
    Dim shp2 As shape
    Dim shpGroup As shape
    Dim reportName As String
    Dim sRange1 As ShapeRange
    
    reportName = "Rotate Report"
    
    Set theReport = ActiveProject.Reports.Add(reportName)
    Set shp1 = theReport.Shapes.AddShape(msoShapeCan, 20, 30, 100, 100)
    Set shp2 = theReport.Shapes.AddShape(msoShapeCan, 140, 30, 100, 100)
        
    Set sRange1 = theReport.Shapes.Range(Array(1, 2))
    sRange1.IncrementRotation 30

    sRange1(2).IncrementRotation -30
End Sub

См. также

Объект Shape

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

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