Excel VBA教程:RotationX属性

以度为单位返回或设置具有延伸的图形绕 X 轴的转角。可为 -90 到 90 之间的值。正值表示向上旋转,负值表示向下旋转。Single 类型,可读写。

expression.RotationX

expression   必需。该表达式返回“应用于”列表中的对象之一。

说明

若要设置具有延伸的图形绕 Y 轴的转角,可用 ThreeDFormat对象的RotationY属性。若要设置具有延伸的图形绕 Z-轴的转角,可用Shape对象的Rotation属性。若要更改延伸方向而不旋转延伸的前表面,可用SetExtrusionDirection方法。

Excel VBA教程:RotationX属性·示例

本示例向myDocument 中添加三个相同的具有延伸的椭圆,并分别将这三个椭圆绕 X 轴的转角设置为 -30 度、0 度和 30 度。


Set myDocument = Worksheets(1)
With myDocument.Shapes
    With .AddShape(msoShapeOval, 30, 30, 50, 25).ThreeD
        .Visible = True
        .RotationX = -30
    End With
    With .AddShape(msoShapeOval, 30, 70, 50, 25).ThreeD
        .Visible = True
        .RotationX = 0
    End With
    With .AddShape(msoShapeOval, 30, 110, 50, 25).ThreeD
        .Visible = True
        .RotationX = 30
    End With
End With

上页:Excel VBA教程:Rotation属性 下页:Excel VBA教程:RotationY属性

Excel VBA教程:RotationX属性

Excel VBA教程:RotationY属性 Excel VBA教程:RoundedCorners属性
Excel VBA教程:Routed属性 Excel VBA教程:RoutingSlip属性
Excel VBA教程:Row属性 Excel VBA教程:RowColSettings属性
Excel VBA教程:RowFields属性 Excel VBA教程:RowGrand属性
Excel VBA教程:RowHeight属性 Excel VBA教程:RowItems属性
Excel VBA教程:RowNumbers属性 Excel VBA教程:RowRange属性
Excel VBA教程:Rows属性 Excel VBA教程:RTD属性
Excel VBA教程:Saved属性 Excel VBA教程:SaveData属性
Excel VBA教程:SaveHiddenData属性 Excel VBA教程:SaveLinkValues属性
Excel VBA教程:SaveNewWebPagesAsWebArchives属性 Excel VBA教程:SavePassword属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号