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 sld

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に慣れた方の場合、ちょっと驚くポイントかもしれません。

関連語句
VBA, Visual Basic for Applications
[スポンサードリンク]

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

TrackBack:0

TrackBack URL

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

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

検索


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

.