Timing.SmoothEnd プロパティ (PowerPoint)

アニメーションが終了に近づくにつれて実行速度を遅くするかどうかを設定します。 値の取得と設定が可能です。

構文

式。 SmoothEnd

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

戻り値

MsoTriState

注釈

SmoothEnd プロパティの値には、以下の msotristate クラス の定数のいずれかを指定できます。

定数	説明
msoFalse	既定値です。 アニメーションは終了が近づくにつれて実行速度が遅くなりません。
msoTrue	アニメーションは終了が近づくにつれて実行速度が遅くなります。

例

次の使用例は、スライドに図形を追加し、図形のアニメーションを実行して、終了が近づくにつれて実行速度を遅くするように設定します。

Sub AddShapeSetTiming()

    Dim effDiamond As Effect
    Dim shpRectangle As Shape

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

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

    'Sets duration of effect and slows animation at end
    With effDiamond.Timing
        .Duration = 5
        .SmoothEnd = msoTrue
    End With

End Sub

関連項目

オブジェクトのタイミング

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

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