通过

Shape.IncrementRotation 方法 (Project)

  • 项目

将形状围绕 z 轴旋转指定的度数。

语法

expression。 IncrementRotation (增量)

expression 一个代表 Shape 对象的变量。

参数

名称 必需/可选 数据类型 说明
Increment 必需 Single 要旋转形状的度数。 为正值时顺时针旋转形状，为负值时逆时针旋转形状。
Increment 必需 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

另请参阅

形状对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。