Excel VBAでテキストボックスのフォントを変更する

「マクロ テキストボックスのフォント変更」
といった検索キーワードでアクセスがありました。

テキストボックスのフォント種別を変更するサンプルマクロ

新規ワークシートにテキストボックスを1つ挿入し、何らかの文字列を入力しておいてから、以下のExcelマクロを実行してください。

半角英数字などのASCII文字のフォントが「Arial」に、全角文字や半角カタカナのフォントが「BIZ UDゴシック」に変更されます。

サンプルマクロで行っている処理

テキストボックスを表すShapeオブジェクトを取得して、

Dim shp As Shape
Set shp = ActiveSheet.Shapes(1)

テキストボックスのフォントを表すFont2オブジェクトを取得してから、

Dim fon2 As Font2
Set fon2 = shp.TextFrame2.TextRange.Font

Font2.NameプロパティとFont2.NameFarEastプロパティを使って、ASCII文字のフォントと日本語文字のフォントを変更しています。

fon2.Name = "Arial"
fon2.NameFarEast = "BIZ UDゴシック"

TextFrame2.TextRange.Fontの戻り値はFont2

拙著『理解するExcel VBA／図形操作の基本』の「chapter 6. TextFrame2を経由した文字列操作」でも解説しているとおり、TextFrame2.TextRangeプロパティの戻り値はTextRange2オブジェクトで、TextRange2.Fontプロパティの戻り値はFont2オブジェクトです。

Dim fon2 As Font2
Set fon2 = shp.TextFrame2.TextRange.Font

プロパティ名と、戻り値のオブジェクト名が微妙に異なるので注意が必要です。

日本語フォントの設定にはFont2.NameFarEast

Font2.Nameプロパティで取得/設定できるのは、ASCII文字です。

日本語フォントを取得/設定するにはFont2.NameFarEastプロパティを使う必要があります。

fon2.Name = "Arial"
fon2.NameFarEast = "BIZ UDゴシック"

ASCII文字しか使っていないテキストボックスであれば、Font2.NameFarEastプロパティを使った設定処理は不要です。

• 『理解するExcel VBA／図形操作の基本』を出しました。
• 『図形操作の基本』で紹介している図形関連オブジェクトごとのプロパティ一覧

理解するExcel VBA／図形操作の基本

伊藤潔人 2021-11-28

Amazon