Effect オブジェクト (PowerPoint)

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

例

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

メソッド

名前
Delete
MoveAfter
MoveBefore
MoveTo

プロパティ

名前
Application
Behaviors
DisplayName
EffectInformation
EffectParameters
EffectType
Exit
Index
Paragraph
Parent
Shape
TextRangeLength
TextRangeStart
Timing

関連項目

PowerPoint Object Model Reference

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。