Home » ExcelVBA Rangeオブジェクト » 文字サイズを調べるExcelマクロ-Font.Sizeプロパティ

文字サイズを調べるExcelマクロ-Font.Sizeプロパティ

対象:Excel2003, Excel2007, Excel2010, Excel2013

文字サイズを調べるマクロ

「エクセル マクロ 文字サイズを知る」
という検索がこのサイト・インストラクターのネタ帳で行われていました。

文字の大きさを調べるマクロ・VBA(Visual Basic for Applications)のコードを探している方による検索です。

[スポンサードリンク]

選択されているセルのフォントサイズを取得するサンプルマクロ

この検索キーワードだけでは詳細がわかりませんので、参考になりそうなコードをご紹介しておきます。

Sub 選択セルのフォントサイズを調べる()
 Dim rng As Range

 If TypeName(Selection) <> "Range" Then Exit Sub

 For Each rng In Selection
  Debug.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 » ExcelVBA Rangeオブジェクト » 文字サイズを調べるExcelマクロ-Font.Sizeプロパティ

「ExcelVBA Rangeオブジェクト」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.