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

質問

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

回答No.1

kagakusuki

>textboxの中の文字を大きくしたいのですが

との事ですが、そもそも質問者様のVBAではエラーとなってテキストボックスが作成されませんので、作成されない文字のサイズを変える事など出来ません。

set temp = worksheets("ツーリングダイヤ").shapes.addtextbox_(msotextorientstionhorizontal,65,k,65,17) ’駅名表示用BOX

の中のmsotextorientstionhorizontalとは何の事なのでしょうか？
　もしかしますと、msoTextOrientationHorizontalの間違いではないでしょうか？
　又、テキストの縦方向の位置を指定する箇所で、変数kの値が使用されている様ですが、そのkの値を定めている

k = .cells(j,+m,3).value’表示位置取得

という箇所の中でセル番号の指定の仕方が、Excelで使用可能な2次元のセル番号ではなく、3次元のセル番号となっているのは何故なのでしょうか？
　もしかしますと、未だ私が気付いていないバグが他にもあるかも知れません。
　これではVBAが動作致しません。
　後、別に間違いという訳では御座いませんが、

.line.visible = falue’透明
.fill.visible = falue

の2行は

with temp

の中に入れ子としているというのに、その直前の

temp.textframe.characters.text = worksheets("ツーリングダイヤ").cells(j,2).value’駅名転記

の行は、何故、態々

with temp

の中に入れずにおいておられるのでしょうか？

　それでそういったバグをどう直せば良いのかは後回しにして、とりあえず御質問の

>textboxの中の文字を大きくしたい

という事についてのみお伝えする事に致します。
　文字サイズは

[テキストボックスオブジェクト].TextFrame.Characters.Characters.Font.Size = [フォントサイズ]

で設定されますから、もしShape変数tempで規定されているテキストボックスのフォントサイズを20に設定する場合には、

temp.TextFrame.Characters.Characters.Font.Size = 20

という構文を付け加えれば良い訳です。
　そして

temp.TextFrame.Characters.Characters

の所までは

temp.textframe.characters.text = worksheets("ツーリングダイヤ").cells(j,2).value’駅名転記

の行と共通なのですから、

temp.textframe.characters.text = worksheets("ツーリングダイヤ").cells(j,2).value’駅名転記
with temp
.line.visible = falue’透明
.fill.visible = falue
end with

の部分を
with temp
with .textframe.characters
.text = worksheets("ツーリングダイヤ").cells(j,2).value’駅名転記
.Font.Size = 20
end with
.line.visible = falue’透明
.fill.visible = falue
end with

に変えれば良い訳です。

お礼

早速のご解答ありがとう御座います。
いろいろと不備なコードでの質問をいたしましてご迷惑をおかけしました。申し訳ありません。

「バグを直せば良いのかは後回しにしてとりあえず・・・・・」と言っていただきましたので、早速次のように、コードを追加してみましたが解決できませんでした。致命的な間違いをしているようです。原因が判明しません、すみませんもう一度、教えて頂けませんか。今回は、動作しているコードをコピーしました。（その中に今回のコードを追加してあります。）
-------------------------------
'------------駅名・キロ程転記・描画　--------

Dim temp As Shape
Dim j, m, k, t As Long

With Sheets("ツーリングダイヤ")
t = .Range("c110").Value

For j = 104 To t Step 1 '駅数の数NEXT
m = .Range("e99").varue '表示位置調整
k = .Cells(j + m, 3).Value '表示位置取得

Set temp = Worksheets("ツーリングダイヤ").Shapes.AddTextbox(msoTextOrientationHorizontal, 65, k, 65, 17) 'TEXTBOX駅名表示用
temp.TextFrame.Characters.text = Worksheets("ツーリングダイヤ").Cells(j, 2).Value 'BOXに駅名転記
temp.TextFrame.Characters.Characters.Font.Size = 20
With temp

.line.Visible = False
.Fill.Visible = False
End With
Next j
End With
-----------------------------
よろしくお願いいたします。