Home » パワーポイントマクロ・PowerPoint VBAの使い方 » アニメーション » アニメーションを全て削除するPowerPointマクロ

アニメーションを全て削除するPowerPointマクロ

対象：PowerPoint2002, PowerPoint2003

一時的にアニメーションを非表示にすればいいのならば、この方法でいいのですが、アニメーションがたくさん設定されたPPTファイルを元に、新しいプレゼン資料を作成する場合は、アニメーションを削除する必要が出てきます。

一括設定されたアニメーションならば、［スライドのデザイン］−［アニメーションの一括設定］作業ウィンドウで、「アニメーションなし」をすべてのスライドに適用することでアニメーションが削除されますが、個別のスライドに設定されたアニメーションは一つ一つのスライドを表示して削除操作をしなければなりません。

［スポンサードリンク］

こういった同じ操作を何度もしなければならない場合は、VBA（Visual Basic for Applications）でマクロを作って処理するのが便利です。

Sub すべてのアニメーションを削除する()
　If MsgBox("アニメーションを全て削除していいですか？", vbYesNo) = vbNo Then Exit Sub
　
　Dim sld As Slide
　For Each sld In ActivePresentation.Slides
　
　　With sld.TimeLine.MainSequence
　　　Dim i As Long
　　　For i = .Count To 1 Step -1
　　　　.Item(i).Delete
　　　Next i
　　End With
　
　Next sld

　MsgBox "アニメーションを全て削除しました。"
End Sub

上記のマクロを実行すると、「アニメーションを全て削除していいですか？"」という確認メッセージが表示され、［はい］ボタンをクリックすると全てのスライドのアニメーションが削除され、終了すると「アニメーションを全て削除しました。」というメッセージが表示されます。

全スライドに対するFor Each～Next文の中で、
　　For Each sld In ActivePresentation.Slides

For～Next文を回してアニメーションの削除を行っています。
　　With sld.TimeLine.MainSequence
　　　Dim i As Long
　　　For i = .Count To 1 Step -1
　　　　.Item(i).Delete

PowerPoint 2002からオブジェクトが変更になっている関係で、このマクロが動作するのは2002以降のPowerPointです。