スライド番号を非表示にするマクロ

「powerpoint vba スライド番号 削除」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。

スライド番号を削除するPowerPoint VBA（Visual Basic for Applications）のコードを探している方による検索です。

「削除」というキーワードが使われていますが、非表示にすればいいのではないかと感じます。

ここでは参考になりそうな、スライド番号を非表示にするPowerPointマクロを、2つご紹介しておきましょう。

スライド番号を非表示にするサンプルマクロ

以下のマクロで、編集中のアクティブなスライドのスライド番号を非表示にできます。

深い階層のオブジェクト式ですが、前半の
　ActiveWindow.Selection.SlideRange
というのは、編集中のスライドを表すSlideRangeオブジェクトを取得する、PowerPoint VBAでは、定番のオブジェクト式です。

スライド番号を非表示にするのに関係するメインのオブジェクト式は、後半の、
　　HeadersFooters.SlideNumber.Visible = msoFalse
です。

SlideRangeオブジェクトのHeadersFootersプロパティで、HeadersFootersオブジェクトを取得して、

HeaderFootersオブジェクトのSlideNumberプロパティで、HeaderFooterオブジェクトを取得して、

HeaderFooterオブジェクトのVisibleプロパティに、msoFalseを設定することでスライド番号を非表示にしています。

HeadersFootersオブジェクトのSlideNumberプロパティで、
HeaderFooterオブジェクトを取得するところが、珍しいオブジェクト式です。

各プロパティがそれぞれ何を返すのかを、オブジェクトブラウザーで確認しないと、なかなか理解し辛いコードではないかと感じます。

スライド番号を非表示にするサンプルマクロ

以下のマクロで、アクティブなプレゼンテーションファイルの全スライドのスライド番号を非表示にできます。

全スライドに対するループの中で、
　For Each sld In ActivePresentation.Slides

先ほどの、アクティブなスライドのスライド番号を非表示にするマクロと同じ処理を行っています。
　　sld.HeadersFooters.SlideNumber.Visible = msoFalse