動作検証バージョン：Windows 11 Home + 64bit Excel バージョン 2506（ビルド18925.20158クイック実行）
「図形 選択 マクロ フォントサイズ」
といった検索キーワードで、このサイト『インストラクターのネタ帳』へアクセスがありました。
何を調べていらしたのか判断に迷いますが、この記事ではワークシート上で選択されている図形のフォントサイズを取得するExcelマクロをご紹介します。
選択されている図形のフォントサイズを取得するサンプルマクロ
ワークシート上で図形を選択しておいてから、以下のExcelマクロを実行してください。
Sub 選択されている図形のフォントサイズを取得する()
On Error GoTo ErrHandl
Dim shp As Shape
For Each shp In Selection.ShapeRange
If shp.TextFrame2.HasText Then
MsgBox shp.TextFrame2.TextRange.Font.Size
End If
Next
Exit Sub
ErrHandl:
Err.Clear
MsgBox "図形を選択した状態で実行してください。"
End Sub
On Error GoTo ErrHandl
Dim shp As Shape
For Each shp In Selection.ShapeRange
If shp.TextFrame2.HasText Then
MsgBox shp.TextFrame2.TextRange.Font.Size
End If
Next
Exit Sub
ErrHandl:
Err.Clear
MsgBox "図形を選択した状態で実行してください。"
End Sub
サンプルマクロで行っている処理
拙著『理解するExcel VBA／図形操作の基本』でも解説している、オブジェクト式「Selection.ShapeRange」で選択されている図形を取得して、For Each文で処理を開始して、
Dim shp As Shape For Each shp In Selection.ShapeRange
If shp.TextFrame2.HasText Then
フォントサイズを取得して、メッセージボックスに表示しています。
MsgBox shp.TextFrame2.TextRange.Font.Size
図形が選択されていないときには、オブジェクト式「Selection.ShapeRange」で実行時エラーが発生するので、On Error GoTo文を入れています。
On Error GoTo ErrHandl '途中省略 Exit Sub ErrHandl: Err.Clear MsgBox "図形を選択した状態で実行してください。"
［スポンサードリンク］
Home » エクセルマクロ・Excel VBAの使い方 » DrawingObjects » VBAで選択されている図形のフォントサイズを取得する
『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
