Home » パワーポイントマクロ・PowerPoint VBAの使い方 » アニメーション » アニメーションの含まれるスライドを調べるPowerPointマクロ

アニメーションの含まれるスライドを調べるPowerPointマクロ

対象：PowerPoint2003, PowerPoint2007, PowerPoint2010, PowerPoint2013

このサイト・インストラクターのネタ帳では、アニメーションを一括削除するPowerPointのマクロをご紹介しています。

いきなりアニメーションを削除するのではなく、アニメーションの含まれているスライドを調べたい、ということも実務ではあります。

［スポンサードリンク］

そんなマクロを作成してみました。

Sub アニメーションの含まれるスライドを調べる()
　Dim sld As Slide
　For Each sld In ActivePresentation.Slides
　　With sld
　　　If .TimeLine.MainSequence.Count >= 1 Then
　　　　Debug.Print .SlideNumber
　　　End If
　　End With
　Next
End Sub

上記のマクロを実行すると、イミディエイトウィンドウに、アニメーションの含まれているスライドのスライド番号が出力されます。

アクティブなプレゼンファイルの全スライドにループを回し、
　For Each sld In ActivePresentation.Slides

TimeLineオブジェクトの、Sequenceオブジェクトの、Countプロパティが1以上ならアニメーションが含まれているので、
　　　If .TimeLine.MainSequence.Count >= 1 Then

そのスライド番号をDebug.Printしています。
　　　　Debug.Print .SlideNumber

TimeLineオブジェクトのMainSequenceプロパティで、Sequenceオブジェクトが取得できるというところが、Excel VBAに慣れた方の場合、ちょっと驚くポイントかもしれません。

最終更新日時：2020-05-21 05:18

▼『いちばんやさしい PowerPoint VBA の教本』は、一番易しいパワポマクロ入門書、というわけではありませんので、ご注意ください。