MotionEffect.ByX プロパティ (PowerPoint)

設定または取得、 1 つ の拡大/縮小をそれぞれ、 ScaleEffect または MotionEffect オブジェクトと共に使用するかどうかによって、画面の幅の指定された割合による水平方向にオブジェクトを移動します。 などのオブジェクト画面幅の半分を右側に移動するアニメーション効果の 50 の値を意味します。 値の取得と設定が可能です。

構文

式。 ByX

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

戻り値

1 行

注釈

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

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

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 のサポートおよびフィードバックを参照してください。