PowerPoint VBAでアニメーションを実行する方法【初心者向け解決ガイド】

PowerPointでプレゼンテーションを作成していると、「スライドの内容をもっと魅力的にしたい」「同じアニメーションを何度も使いたい」と思うことがありますよね。そんなときに役立つのが、PowerPointのVBA（Visual Basic for Applications）を使ったアニメーションの自動化です。

この記事では、VBAを使ってアニメーションを設定する方法を、初心者の方にもわかりやすく解説します。特に、アニメーションの実行に焦点を当て、実際のコード例を交えて説明しますので、ぜひ最後までご覧ください。

VBAでアニメーションを設定する基本の流れ
アニメーションの実行タイミングを調整する方法
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

VBAでアニメーションを設定する基本の流れ

PowerPointのイメージ

まずは、VBAを使ってアニメーションを設定する基本的な手順を見ていきましょう。

開発タブを表示する

PowerPointのリボンに「開発」タブが表示されていない場合、以下の手順で表示させます

「ファイル」タブをクリック
「オプション」を選択
「リボンのユーザー設定」をクリック
右側のリストから「開発」にチェックを入れて「OK」をクリック

VBAエディターを開く

「開発」タブの「Visual Basic」ボタンをクリックすると、VBAエディターが開きます。

コードを入力する

VBAエディターで、新しいモジュールを挿入し、以下のコードを入力します

Sub AddFadeAnimation()

    Dim slide As slide

    Dim shape As shape

    Dim effect As effect

' アクティブなプレゼンテーションの全スライドをループ For Each slide In ActivePresentation.Slides ' 各スライド内の全ての図形をループ For Each shape In slide.Shapes ' 図形にフェードインのアニメーションを追加 Set effect = slide.TimeLine.MainSequence.AddEffect(Shape:=shape, effectId:=msoAnimEffectFade) ' アニメーションの開始タイミングを設定（ここでは前の動作と同時） effect.Timing.TriggerType = msoTriggerWithPrevious Next shape Next slide End Sub

マクロを実行する

コードを入力したら、VBAエディターの「実行」ボタンをクリックしてマクロを実行します。これで、全ての図形にフェードインのアニメーションが設定されます。

アニメーションの実行タイミングを調整する方法

アニメーションの実行タイミングを調整することで、プレゼンテーションに動きのある演出を加えることができます。以下のプロパティを活用してみましょう

ここがポイント！

TriggerType: アニメーションの開始タイミングを設定します。例えば、
msoTriggerWithPrevious

は前の動作と同時に開始、

msoTriggerAfterPrevious

は前の動作の後に開始します。
AdvanceTime: アニメーションの開始までの遅延時間を設定します。例えば、
AdvanceTime = 2

とすると、2秒後にアニメーションが開始されます。
Animate: アニメーションを有効にするかどうかを設定します。
Animate = msoTrue

でアニメーションが有効になります。