投稿タグ:VBAPowerPointMSOfficeプログラミングタグ:VBAPowerPointMSOfficeプログラミング記事一覧PowerPointの図形のフォントを「本文のフォント」や「見出しのフォント」にする方法の備忘録です。With斜体部は表記されている型の任意のオブジェクトを示します。変更したいテキスト(TextRangeオブジェクト)のフォント(Fontオブジェクト)に対して使いたいフォント名を設定することでフォントを変更することができます。Fontオブジェクトの場合は英数字用のフォントに影響するのが"NameAscii"プロパティ日本語用のフォントに影響するのが"NameFaeEast"プロパティです。日本語」のようにテーマなどに依存させたい場合は上記の文字列を設定することで可能となります。以下は結果からの推測となりますが先頭の"+mn"はマイナーの略で本文。後ろの"-lt"、”-ea”はラテン語、東アジア語で英数字と漢字類を表していると思われます。「+見出しのフォント~」にしたい場合は先頭の"+mn~"を"+mj~"にします。"+mj"はメジャーの略で見出しを表しているようです。サンプル最後に簡単なサンプルを用意しました。PowerPoint上で選択している形状のフォントを、英数字・日本語ともに本文のフォントにするマクロとなります。単体のテキストボックスなどなら問題なく動作するはずです。PowerPointの標準モジュールに貼り付けて"選択している形状のフォントを本文のフォントにする"プロシージャを起動してください。Sub今回はTextRangeオブジェクトで例を示しましたが、TextRange2オブジェクトのFont2オブジェクトでも同様のことが出来ます。ツイート!違反報告これより過去の記事はありません。一覧へVBScriptでクリップボードに送るコメントコメントはまだありませんコメントを書き込むにはログインしてください。Ltd.×アカウントをお持ちの方はログインしてください。アカウント登録まだアカウントをお持ちでない方でも無料で作成できます。