共用方式為

RotationEffect.To PowerPoint) (屬性

  • 發行項

會設定或傳回 單一 代表結束的旋轉角度以度為單位，相對於] 畫面上指定的物件 (例如 90 度為完全水平)。 讀取/寫入。

語法

expression。 To

表達 代表 RotationEffect 物件的 變數。

傳回值

單一

註解

使用這個屬性搭配 From 屬性轉換到另一個旋轉角度從。

預設值為 空 在此情況下使用物件的目前位置。

請勿將此屬性與 ToX 或 ToY 屬性的 ScaleEffect 和 MotionEffect 物件，這用於調整效果或動作效果。

範例

下列範例會加入新的旋轉效果，並立即將其旋轉角度從 90 度變成 270 度。

Sub AddAndChangeRotationEffect()

    Dim effBlinds As Effect
    Dim tmlTiming As TimeLine
    Dim shpRectangle As Shape
    Dim animColor As AnimationBehavior
    Dim rtnEffect As RotationEffect

    Set shpRectangle = ActivePresentation.Slides(1).Shapes(1)
    Set tmlTiming = ActivePresentation.Slides(1).TimeLine
    Set effBlinds = tmlTiming.MainSequence.AddEffect(Shape:=shpRectangle, _
        effectId:=msoAnimEffectBlinds)
    Set animColor = tmlTiming.MainSequence(1).Behaviors.Add(Type:=msoAnimTypeRotation)
    Set rtnEffect = animColor.RotationEffect
    rtnEffect.From = 90
    rtnEffect.To = 270

End Sub

另請參閱

RotationEffect 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。