PowerPoint VBAでフォント設定をするFontオブジェクトを取得する

photo credit: Daniel Ari Friedman Alphabet via photopin (license)

みなさん、こんにちは！
タカハシ(@ntakahashi0505)です。

初心者向けPowerPoint VBAの使い方ということで、プレゼンテーションの全ての描画オブジェクトについてフォントを変更するマクロの作成を目指しています。

前回の記事はコチラ。

【初心者向けPowerPoint VBA】Shapeオブジェクトのテキストを取得する方法

初心者向けPowerPoint VBAのシリーズとして、図形やテキストオブジェクトのフォントを変更するマクロを作成する方法をお伝えしています。今回は、Shapeオブジェクトのテキストを取得する方法です。

描画オブジェクトのテキストの取得の方法をお伝えしました。

それで、テキストを取得する対象となるテキスト範囲を表すTextRangeオブジェクトにも言及したわけですが、このTextRangeオブジェクトからフォントを操作するFontオブジェクトにアクセスが可能です。

ということで、今回はPowerPoint VBAでフォントを設定するFontオブジェクトを取得する方法についてお伝えします。

では、行ってみましょう！

前回のおさらい
フォント設定を表すFontオブジェクト
すべてのシェイプのフォント名を取得するプロシージャ
まとめ
連載目次：初心者向けPowerPoint VBAのはじめの一歩

前回のおさらい

題材としているプレゼンテーションはコチラです。

それで、前回紹介したコードがコチラですね。

Sub Shapesコレクションのループでテキストを表示()

Dim shp As Shape
For Each shp In ActivePresentation.Slides(1).Shapes
    Debug.Print shp.TextFrame.TextRange.Text
Next shp

End Sub

これで、1枚目のスライドの全てのShapeオブジェクトのテキストについて、デバッグ出力により確認することができました。

今回は、Shapeオブジェクトのフォントについて操作をしていきましょう。

フォント設定を表すFontオブジェクト

Shapeオブジェクトのフォント設定は、Fontオブジェクトというオブジェクトが司っていて、Fontオブジェクトに用意されているプロパティにより

フォントの種類（英数字用/日本語用）
サイズ
太字/イタリック/下線
フォントの色

などを設定できます。

ちょうど、描画オブジェクトを選択状態でリボン「」をクリックで開く、以下の「フォント」ダイアログでの設定が該当しています。

FontオブジェクトはTextRangeオブジェクトのFontプロパティで取得できます。

TextRangeオブジェクト.Font

すべてのシェイプのフォント名を取得するプロシージャ

前述のコードの5行目に「TextRange」というプロパティがありますね。

このプロパティでTextRangeオブジェクトが取得できているので、これに対してFontプロパティを使えばOKということになります。

Fontオブジェクトが取得できているか確認するために、以下のようなプロシージャを作ってみました。

Sub Shapesコレクションのループでフォント名を取得()

Dim shp As Shape
For Each shp In ActivePresentation.Slides(1).Shapes
    Debug.Print shp.Name, shp.TextFrame.TextRange.Font.Name
Next shp

End Sub

実行すると…