次の方法で共有


AnimationBehavior.ScaleEffect プロパティ (PowerPoint)

指定したアニメーション動作の ScaleEffect オブジェクトを取得します。 値の取得のみ可能です。

構文

ScaleEffect

AnimationBehavior オブジェクトを表す変数。

戻り値

ScaleEffect

次の使用例は、スライド 1 の図形 1 を 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

関連項目

AnimationBehavior オブジェクト

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

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