対象:Excel2003, Excel2007, Excel2010, Excel2013
「エクセル マクロ 文字サイズを知る」
という検索がこのサイト・インストラクターのネタ帳で行われていました。
文字の大きさを調べるマクロ・VBA(Visual Basic for Applications)のコードを探している方による検索です。
[スポンサードリンク]
選択されているセルのフォントサイズを取得するサンプルマクロ
この検索キーワードだけでは詳細がわかりませんので、参考になりそうなコードをご紹介しておきます。
Sub 選択セルのフォントサイズを調べる()
Dim rng As Range
Debug.Print _
rng.Address(False, False) & vbTab & _
rng.Font.Size
Next rng
End Sub
Dim rng As Range
If TypeName(Selection) <> "Range" Then Exit Sub
For Each rng In SelectionDebug.Print _
rng.Address(False, False) & vbTab & _
rng.Font.Size
Next rng
End Sub
セル範囲を選択いておいてから上記のマクロを実行すると、イミディエイトウィンドウに選択されているセルのアドレスとフォントサイズが表示されます。
サンプルマクロの解説
実際にフォントサイズを取得しているのは、
rng.Font.Size
の部分です。
Rangeオブジェクトの、Fontオブジェクトの、Sizeプロパティを取得しています。
セル番地を出力する
rng.Address(False, False)
の部分は、絶対参照マーク「$」のない状態にするために、Addressプロパティの第1・2引数にFalseを指定しています。
[スポンサードリンク]
Home » Excel VBA Rangeオブジェクト » 文字サイズを調べるExcelマクロ-Font.Sizeプロパティ