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

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

対象:PowerPoint2002, PowerPoint2003

アニメーションを表示しないでスライドショーを実行する方法を、ご紹介しました。

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

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

[スポンサードリンク]

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


Sub すべてのアニメーションを削除する()

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

End Sub

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

「For Each...Next」ステートメントで全スライドにアクセスして、その中の「For...Next」ステートメント内でアニメーションの削除を行っています。

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

[スポンサードリンク]

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

TrackBack:1

TrackBack URL
アニメーションの含まれるスライドを調べるパワポマクロ from インストラクターのネタ帳
PowerPoint(パワーポイント)でアニメーションのふくまれるスライドを調べてイミディエイトウィンドウに一覧表示するマクロをご紹介しています。

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

「スライドショー」の記事一覧

検索


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

.