全スライドをリセットするPowerPointマクロ

対象：PowerPoint2007, PowerPoint2010, PowerPoint2013, Windows版PowerPoint2016

プレースホルダーのフォントも、このマクロを使って変更することは可能です。

スライドのリセット機能

ですが、プレースホルダーについては、マスター側から変更するのが、PowerPoint本来の使い方でしょう。

個々のスライドで、プレースホルダーのフォントが変更されてしまっている場合は、［ホーム］タブ－［スライド］グループ－［リセット］ボタンからスライドをリセットして、

全スライドをリセットするPowerPointマクロ

マスターどおりの見た目に戻すことを先に行うべきだと感じます。

［スポンサードリンク］

このスライドのリセットをVBAで行うことも可能です。

Sub すべてのスライドをリセットする()
　ActiveWindow.ViewType = ppViewSlideSorter

　ActivePresentation.Slides.Range.Select

　With Application.CommandBars
　　If .GetEnabledMso("SlideReset") Then
　　　.ExecuteMso "SlideReset"
　　End If
　End With
End Sub

上記のマクロを実行すると、スライド一覧表示モードになって、すべてのスライドがリセットされます。

2003までのPowerPointの場合は、
　ActiveWindow.Selection.SlideRange.Layout = レイアウトを表す定数
といったコードでリセットが行われ、フォントもマスターと同じ状態に戻すことができました。

ですが、2007以降のPowerPointでは、この方法ではフォントをマスターと同じにすることはできなくなってしまっています。

そこで、CommandBars.ExecuteMsoメソッドを使ったマクロにしました。

スライド一覧表示にして、
　ActiveWindow.ViewType = ppViewSlideSorter

すべてのスライドを選択しておいて、
　ActivePresentation.Slides.Range.Select

「SlideReset」コマンドが実行可能なときに、
　With Application.CommandBars
　　If .GetEnabledMso("SlideReset") Then

「SlideReset」コマンドを実行しています。
　　　.ExecuteMso "SlideReset"

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月から平日のほぼ毎日、Microsoft Officeの使い方などを紹介し続けています。
Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

Excel VBAユーザーを対象とした、Word VBAの入門書をキンドル本として出しました↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の元になったキンドル本です↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

3年前(2021年4月)の
人気記事

「Slide・スライド」の記事一覧