ScaleEffect オブジェクト (PowerPoint)

AnimationBehavior オブジェクトの拡大/縮小効果を表します。

例

ScaleEffect オブジェクトを取得するのにには、 AnimationBehavior オブジェクトのScaleEffectプロパティを使用します。 次の使用例は、指定したアニメーション動作の拡大または縮小効果を参照します。

ActivePresentation.Slides(1).TimeLine.MainSequence.Item.Behaviors(1).ScaleEffect

ScaleEffect オブジェクトのByX 、ByY 、FromX 、FromY 、ToX 、およびToYプロパティを使用すると、オブジェクトのスケールを操作できます。 次の使用例を 0 から開始のサイズが元のサイズの 100% に達するまで、最初のスライド上の図形を拡大します。 次の使用例では、最初のスライドに図形があることを前提としています。

Sub ChangeScale()

    Dim shpFirst As Shape
    Dim effNew As Effect
    Dim aniScale As AnimationBehavior

    Set shpFirst = ActivePresentation.Slides(1).Shapes(1)
    Set effNew = ActivePresentation.Slides(1).TimeLine.MainSequence _
        .AddEffect(Shape:=shpFirst, effectId:=msoAnimEffectCustom)

    Set aniScale = effNew.Behaviors.Add(msoAnimTypeScale)
    With aniScale.ScaleEffect
        'Starting size
        .FromX = 0
        .FromY = 0

        'Size after scale effect
        .ToX = 100
        .ToY = 100
    End With

End Sub

関連項目

PowerPoint Object Model Reference

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

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