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

[スポンサードリンク]

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

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

検索


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

.