テキストボックスを作成するマクロで

質問

エクセルでテキストボックスを50個表示させるマクロを作成する場合、テキストボックスの番号は連番になると思いますが、最初の番号を指定することは可能でしょうか？

＊この場合のテキストボックスの番号とはマクロ上の以下のような番号のことです。
ActiveSheet.Shapes("Text Box 8").Select

回答No.1

nml · ベストアンサー

エクセルでテキストボックスを50個表示させるというのは、新しいテキストボックスを50個作成するということでしょうか？
そうであれば、作成後にマクロで名前を付けていけばどうでしょうか？

お礼

ありがとうございました。

＞作成後にマクロで名前を付けていけばどうでしょうか？
それが良さそうですね。
改めて質問し直したいと思います。

回答No.2

papayuka

こんにちは。

こんな意味でしょうか？

Sub aaa()
Dim myTBox As Oleobject
With Worksheets(1)
　For i = 1 To 10
　　Set myTBox = .OLEObjects.Add("Forms.TextBox.1", _
　　　　　　　　　Left:=.Cells(i, 1).Left, _
　　　　　　　　　Top:=.Cells(i, 1).Top, _
　　　　　　　　　Width:=.Cells(i, 1).Width, _
　　　　　　　　　Height:=.Cells(i, 1).Height)
　　myTBox.Name = "myTBox" & i
　Next i
End With
End Sub

お礼

ありがとうございました。
ちょっと意味が違っているような(^^;