Effect オブジェクト

Effect オブジェクト

Sequence Effect 複数のオブジェクト

スライド アニメーションに関するタイミング情報を表します。

使い方

効果を追加するには、AddEffect メソッドを使用します。次の使用例は、作業中のプレゼンテーションのスライド 1 に図形を追加し、図形に効果と動作を追加します。

Sub NewShapeAndEffect()
    Dim shpStar As Shape
    Dim sldOne As Slide
    Dim effNew As Effect

    Set sldOne = ActivePresentation.Slides(1)
    Set shpStar = sldOne.Shapes.AddShape(Type:=msoShape5pointStar, _
        Left:=150, Top:=72, Width:=400, Height:=400)
    Set effNew = sldOne.TimeLine.MainSequence.AddEffect(Shape:=shpStar, _
        EffectId:=msoAnimEffectStretchy, Trigger:=msoAnimTriggerAfterPrevious)
    With effNew
        With .Behaviors.Add(msoAnimTypeScale).ScaleEffect
            .FromX = 75
            .FromY = 75
            .ToX = 0
            .ToY = 0
        End With
        .Timing.AutoReverse = msoTrue
    End With
End Sub
		

既存の Effect オブジェクトを参照するには、MainSequence(index) を使用します。引数 index には、Sequence コレクションの Effect オブジェクトの番号を指定します。次の使用例は、最初のシーケンスの効果を変更し、その効果に動作を指定します。

Sub ChangeEffect()
    With ActivePresentation.Slides(1).TimeLine _
        .MainSequence(1)
        .EffectType = msoAnimEffectSpin
        With .Behaviors(1).RotationEffect
            .From = 100
            .To = 360
            .By = 5
        End With
    End With
End Sub
		

スライドにアニメーションがあるかどうかとは関係なく、各スライドには常に少なくとも 1 つの Effect オブジェクトがあります。