Home » パワーポイントマクロ・PowerPoint VBAの使い方 » マスター » フッターを削除（非表示に）するPowerPointマクロ

フッターを削除（非表示に）するPowerPointマクロ

対象：PowerPoint2007, PowerPoint2010, PowerPoint2013

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

フッターを削除するPowerPointマクロ・VBA（Visual Basic for Applications）のコードを探している方による検索です。

PowerPointでスライド上のフッターを削除するには、

［ヘッダーとフッター］ダイアログ－［スライド］タブの［フッター］チェックボックスをOffにしてから［すべてに適用］ボタンを押す、

フッターを削除（非表示に）するPowerPointマクロ

という操作を行います。

複数のプレゼンテーションファイルからフッターを削除したいときに、この操作を繰り返し行うのが面倒でマクロで処理したいという気持ちになるのは、とても納得できます。

VBA側から見ると、プレゼンテーションファイル上のフッターを表すHeaderFooterオブジェクトを非表示にすることで、フッターを削除することができます。

［スポンサードリンク］

アクティブプレゼンテーションのフッターを非表示にするサンプルマクロ

以下のようなマクロで、アクティブなプレゼンテーションファイルのフッターを非表示にできます。

Sub アクティブなプレゼンテーションのフッターを非表示にする()

　Dim sld As Slide

　For Each sld In ActivePresentation.Slides
　　sld.HeadersFooters.Footer.Visible = msoFalse
　Next sld

　ActivePresentation.SlideMaster _
　　.HeadersFooters.Footer.Visible = msoFalse

End Sub

このマクロで利用しているオブジェクトの階層構造を図にすると下図のようなイメージで、

フッターを削除（非表示に）するPowerPointマクロ

行っている処理は以下のとおりです。

アクティブなプレゼンテーションファイルの全スライドに対してループを開始します。
　For Each sld In ActivePresentation.Slides

ActivePresentationプロパティでアクティブなプレゼンテーションファイルを表すPresentationオブジェクトを取得して、PresentationオブジェクトのSlidesプロパティで全スライドを表すSlidesコレクションオブジェクトを取得しています。

全スライドに対するループの中で、個々のスライドのフッターの表示を非表示にしています。
　　sld.HeadersFooters.Footer.Visible = msoFalse

SlideオブジェクトのHeadersFootersプロパティで、HeadersFootersコレクションオブジェクトを取得して、HeadersFootersコレクションオブジェクトのFooterプロパティで、フッターを表すHeaderFooterオブジェクトを取得して、フッターを表すHeaderFooterオブジェクトのVisibleプロパティをmsoFalseに設定することでフッターを非表示にしています。

HeadersFootersコレクションオブジェクトのFooterプロパティで、

フッターを削除（非表示に）するPowerPointマクロ