Home » パワーポイントマクロ・PowerPoint VBAの使い方 » Slide・スライド » 先頭のスライドをアクティブにするPowerPointマクロ

先頭のスライドをアクティブにするPowerPointマクロ

対象：PowerPoint2007, PowerPoint2010, PowerPoint2013

「パワーポイントマクロスライド1をアクティブにする」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがあることに気が付きました。

先頭のスライド・1枚目のスライドをアクティブにするPowerPoint VBAのコードを探している方による検索です。

［スポンサードリンク］

アクティブなプレゼンテーションファイルの先頭スライドをアクティブにするサンプルマクロ

以下のようなマクロで、アクティブなプレゼンテーションファイルの、先頭のスライドをアクティブにすることができます。

Sub 先頭のスライドをアクティブにする()
　ActiveWindow.View.GotoSlide Index:=1
End Sub

ViewオブジェクトのGotoSlideメソッドの引数・Indexに、アクティブなスライド番号を指定すれば、その番号のスライドをアクティブにすることができますから、ここでは「1」を指定しています。

すべてのプレゼンテーションファイルの先頭スライドをアクティブにするサンプルマクロ

複数のプレゼンテーションファイルを開いているときに、すべてのファイルで先頭のスライドをアクティブにするというニーズが、実務ではありそうです。

Sub 全プレゼンテーションで先頭のスライドをアクティブにする()
　Dim win As DocumentWindow

　For Each win In Windows
　　win.View.GotoSlide Index:=1
　Next win　
End Sub

すべてのDocumentWindowオブジェクトに対してFor Each～Nextループを回して、
　　For Each win In Windows
ViewオブジェクトのGotoSlideメソッドの引数・Indexに「1」を指定しています。
　　　win.View.GotoSlide Index:=1

すべてのDocumentWondowオブジェクトを含むDocumentWindowsコレクションオブジェクトを取得するのが、Windowsプロパティだというところが、

先頭のスライドをアクティブにするPowerPointマクロ