【マクロ】パワーポイント中の日本語と英語の全テキストをそれぞれ指定のフォントに変更したい
【目的】パワーポイント中の日本語と英語の全テキストをそれぞれ指定のフォントに変更したい
【タスク】
- 「getColShapeFromPresentation」サブルーチン:アクティブなPowerPoint内の全てのスライドに含まれる全てのシェイプをコレクションに格納します。
- 「getColShapeFromSlideMaster」サブルーチン:アクティブなPowerPoint内の全てのスライドマスタに含まれる全てのシェイプをコレクションに格納します。
- 「putShapeIntoCol」サブルーチン:シェイプをコレクションに格納します。
- 「changeFont」サブルーチン:コレクション内のシェイプのフォントを「MSゴシック」→「Arial」の順に変更します。
- 「setFontName」サブルーチン:シェイプのテキストフレームに含まれるテキストのフォントを「MSゴシック」→「Arial」の順に変更します。
- 「makeFontMSgothicandArial」サブルーチン:上記のサブルーチンを呼び出して、アクティブなPowerPoint内のスライド、スライドマスタ、デザインに含まれる全てのテキストボックス(テキストフレームを含む)の全てのテキストのフォントを「MSゴシック」→「Arial」の順に変更します。
【マクロ】
gist3ddadf1fc0b16425a8898e928da1f499
【結果】
【参考】
PowerPointのFontをすべて変更するVBA (グループ化されていても!) - Qiita
全てのフォントを一括で変更する仕様から,
日本語と英語を別々にフォント指定できる仕様に変更した.