| |
Jakaさん、ありがとうございました。
少し変更してやってみましたがどこに文章を入れてよいか解りませんでした。
>ActiveSheet.Shapes("テキスト 16").TextFrame.Characters.Text
↑Set〜のときにはテキストボックスに名前を指定することも出来ませんでした。
（テキストボックスの名前をつけるのは出来ますが）
>【63】図形描画、Shapeの方のテキストボックスの書き込みと読み込み
上記のレスがどこにあるかも解りませんでした。
こんな素人ですみません。これからはもっと勉強してから投稿しますので今回はもう少し教えて下さい。これだけはどうしても作らなければいけないのでお願いします。
Sub samp2()
Dim shp As Shape, GG As Range
On Error Resume Next
Set GG = Application.InputBox(Prompt:="ドラッグした場所にテキストボックスが出来ます" & Chr(10) & _
"セルを選択したら『OKボタン』を押してください, ", Title:="テキストボックス作成", Default:=ActiveCell.Address, Type:=8)
If GG Is Nothing Then
Exit Sub
End If
On Error GoTo 0
If GG Is Nothing Then Exit Sub
横位置 = GG.left
縦位置 = GG.Top
Set shp = ActiveSheet.Shapes.AddTextbox _
(msoTextOrientationHorizontal, 横位置, 縦位置, 52.5, 20.25)
End sub
|
|
愛唯太郎
- 07/5/21(月) 15:54 -
