VBA TextBoxの文字のサイズを変更する方法

質問

• Excel VBAで作成したTextBoxの中の文字のサイズを大きくする方法について教えてください。
• TextBoxの文字の色、背景の色、枠組の線、文字の位置の変更を行うためのコードも教えていただけると嬉しいです。
• 以下のコードに追加することで、TextBoxの文字のサイズを変更することができます。具体的なコードの追加方法について教えていただけますか？

回答No.6

kagakusuki · ベストアンサー

回答No.5で書き切れなかったVBAマクロの構文の続きです。

'表示位置調整用データの取得及び確認
m = .Range(AdjustCell).Value '表示位置調整用データ
If Not IsNumeric(m) Then GoTo label2
If m <> Int(m) Then GoTo label2
Set StName = .Range(NameCell).Resize(t, 1)
myOffsetC = .Columns(PositColumn).Column - StName.Column
'↑表示位置が入力されているセルと駅名が入力されているセルとの列の差

'Textboxの作成位置として無効なものが存在するかどうかを確認し、もし存在すればピックアップして表示
NoDataStation = ""
For Each c In StName '駅数の数NEXT
If c.Value = "" Then GoTo label3
k = c.Offset(m, myOffsetC).Value '表示位置取得
If k <> "" And IsNumeric(k) And k >= 0 Then GoTo label3
NoDataStation = NoDataStation & Chr(13) & Left(c.Value & String(19, "　"), 19) _
& c.Offset(m, myOffsetC).Address(RowAbsolute:=False, ColumnAbsolute:=False) & " = """ & k & """"
label3:
Next c
If NoDataStation <> "" Then
myMsg = MsgBox("以下の駅には位置情報として有効なデータが存在しません。" & Chr(13) & Chr(13) & _
NoDataStation & Chr(13) & Chr(13) & _
"Textboxの作成の際にはこれらの駅は無視して" & Chr(13) & "他の駅のTextboxのみを作成しますか？" _
& Chr(13) & Chr(13) & "[はい] : 有効な位置データが存在する駅のみTextboxを作成します" & Chr(13) _
& "[いいえ] : マクロを終了します", vbExclamation + vbYesNo + vbDefaultButton2, "無効なデータ")
If myMsg <> vbYes Then
MsgBox "マクロを終了します。", vbInformation, "マクロの終了"
Exit Sub
End If
End If

'Textboxの作成及び属性調整
For Each c In StName '駅数の数NEXT
If c.Value = "" Then GoTo label4
k = c.Offset(m, myOffsetC).Value '表示位置取得
If Not IsNumeric(k) Then GoTo label4
If k < 0 Or k = "" Then GoTo label4
Set temp = Sheets(mySheet).Shapes.AddTextbox(msoTextOrientationHorizontal, 65, k, 0, 0) 'テキストボックス作成
With temp
With .TextFrame

'テキストを図形からはみ出して表示する
.HorizontalOverflow = 0
.VerticalOverflow = 0

.Characters.Text = c.Value '図形内のテキストに駅名を入力
End With
With .TextFrame2
With .TextRange
.ParagraphFormat.Alignment = msoAlignCenter '図形内のテキストの水平方向の配置=中央揃え
With .Font
.Size = 10.5 '図形内のテキストのフォントサイズを10.5ptに設定
.NameFarEast = "ＭＳ Ｐゴシック" '図形内のテキストのフォントを"ＭＳ Ｐゴシック"にする
.Fill.ForeColor.RGB = RGB(255, 0, 0) '文字色を赤に設定
'※黒:RGB( 0, 0, 0)、白:RGB( 255, 255, 255)、緑:RGB( 0, 255, 0)、青:RGB( 0, 0, 255)、
'黄:RGB( 255, 255, 0)、紫:RGB( 255, 0, 255)、橙:RGB( 0, 255, 255)
.NameFarEast = "ＭＳ Ｐゴシック" '図形内のテキストのフォントを"ＭＳ Ｐゴシック"にする
End With
End With
.VerticalAnchor = msoAnchorMiddle '図形内のテキストの垂直方向の配置=上下中央

'テキストに合わせて図形のサイズを調整する(必ず折り返し無しと共に使用)
.WordWrap = False '図形内でテキストを折り返さない
.AutoSize = 1 'テキストに合わせて図形のサイズを調整する

End With
.Line.Visible = False '線なし
.Fill.Visible = False '塗りつぶしなし
End With
label4:
Next c
End With
GoTo labelE

label1: '駅の数のデータが無効なデータであった場合
MsgBox mySheet & "!" & NumStCell & "セルに入力されている値" _
& Chr(13) & Chr(13) & t & Chr(13) & Chr(13) _
& "では駅の数として使う事が出来ません。" & Chr(13) _
& "マクロを終了します。", vbExclamation, "無効な値"
GoTo labelE

label2: 'テキストボックスの表示位置調整のデータが無効なデータであった場合
MsgBox mySheet & "!" & AdjustCell & "セルに入力されている値" _
& Chr(13) & Chr(13) & m & Chr(13) & Chr(13) _
& "ではテキストボックスの表示位置調整の値として使う事が出来ません。" _
& Chr(13) & "マクロを終了します。", vbExclamation, "無効な値"
GoTo labelE

labelE:

End Sub

　以上です。

お礼

ありがとう御座います。
今,受信を確認しました。こんなにも詳しく教えて頂きほんとにありがとうございます。
ご迷惑おかけしました。早速勉強したいと思います。

改めて、本当に、本当にありがとうございました。感謝いたします。
今後ともよろしくお願いいたします。