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です。

最終更新日時:2020-05-21 05:00

[スポンサードリンク]

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

「アニメーション」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.