MotionEffect.ByY プロパティ (PowerPoint)

ScaleEffect オブジェクトと MotionEffect オブジェクトのどちらを組み合わせて使用するかに応じて、オブジェクトを画面幅の指定されたパーセンテージで垂直方向にスケーリングまたは移動することを表す単精度浮動小数点型 (Single) の値を設定または返します。 値の取得と設定が可能です。

構文

式。 ByY

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

戻り値

1 行

注釈

負の値を指定すると、オブジェクトは左に水平に移動します。 浮動小数点の値 (たとえば 55.5) は使用できます。

拡大・縮小または水平方向にオブジェクトを移動するには、 ByX プロパティを使用します。

ByX および ByY プロパティの両方が設定されているオブジェクトは拡大/縮小または、水平方向および垂直方向に移動します。

プロパティを使用して 、ColorEffect 、 RotationEffect 、または PropertyEffect オブジェクトのそれぞれの色、回転、またはアニメーション動作が、他のプロパティを設定するために使用するには、このプロパティを混同しないでください。

例

次の使用例は、アニメーションの軌跡を追加し、図形の水平および垂直方向の移動を設定します。

Sub AddMotionPath()

    Dim effCustom As Effect
    Dim animBehavior As AnimationBehavior
    Dim shpRectangle As Shape

    'Adds rectangle and sets effect and animation
    Set shpRectangle = ActivePresentation.Slides(1).Shapes _
        .AddShape(Type:=msoShapeRectangle, Left:=300, _
        Top:=300, Width:=300, Height:=150)

    Set effCustom = ActivePresentation.Slides(1).TimeLine _
        .MainSequence.AddEffect(Shape:=shpRectangle, _
         effectId:=msoAnimEffectCustom)

    Set animBehavior = effCustom.Behaviors.Add(msoAnimTypeMotion)

    'Specifies animation motion
    With animBehavior.MotionEffect
        .ByX = 50
        .ByY = 50
    End With

End Sub

関連項目

MotionEffect オブジェクト

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

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