- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：エクセルVBAでテキストボックスに文字）
エクセルVBAでテキストボックスに文字入れる方法
このQ&Aのポイント
- エクセルVBAを使用して、テキストボックスに文字を入れる方法を教えてください。
- TEST01では期待通りの結果が得られますが、テキストボックスを選択する必要があります。TEST02では選択せずに実行することができるかと思いましたが、エラーが発生しました。修正方法を教えてください。
- どのように修正すれば、テキストボックスを選択せずにVBAで文字を入れることができるのでしょうか？
- emaxemax
- お礼率99% (857/859)
- Excel（エクセル）
- 回答数2
- ありがとう数3
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (1)
- imogasi
- ベストアンサー率27% (4737/17070)
回答No.2
うるさい箇所だと思います。 回答と言えませんが、 参考までに。 https://www.relief.jp/docs/excel-vba-textframe-textframe2.html Excel VBAのTextFrameとTextFrame2が持つプロパティ一覧 TextFrame TextFrame2 の列で、 TextRangeはTextFrame2 にしかありません。 ーー https://excel-ubara.com/excelvba1/EXCELVBA397.html TextFrame2オブジェクト 2007から追加されたTextFrameの後継オブジェクト。
質問者
お礼
ありがとうございます。 勉強になりました。
お礼
ありがとうございました。 なるほど！.ShapeRange.をはずしして、以下でうまくいきました。助かりました！ Sub TEST03() With Sheets("Sheet1").Shapes("TextBox 3").TextFrame2 With .TextRange .Text = "TEST/TEST/03" .Font.Name = "Meiryo UI" .Font.Bold = msoTrue .Font.Size = 16 .Font.Fill.ForeColor.RGB = RGB(255, 0, 0) .ParagraphFormat.Alignment = msoAlignCenter End With .VerticalAnchor = msoAnchorMiddle End With End Sub