挿入したオートシェイプが文字入力待機状態にする方法

質問

昨日HohoPapaさんに選択したセルとピッタリ合うオートシェイプの挿入の仕方を教えていただきました。
今度は、オートシェイプがアクティブ状態とでもいうのでしょうか、挿入後すぐにタイプしたら文字が入力できる状態にする方法を教えていただきたいです。フォントのサイズ、位置は不問で黒色で入力できればと思います。
よろしくお願いいたします。
Set shrect = ActiveSheet.Shapes.AddShape(msoShapeRectangle, _
Selection.Left, Selection.Top, Selection.Width, _
Selection.Height)
shrect.Fill.ForeColor.SchemeColor = 22 'Grey
'shrect.Font.Color = vbBlack ←うまくいかなかった部分

回答No.2

imogasi · ベストアンサー

#1です。
お礼に関して。
Sheet1に３つシェイプを張り付けました。
ーー
下記を作って、実行。
Sub test03()
For Each sp In Worksheets("Sheet1").Shapes
MsgBox sp.Name
Next
End Sub
Heart 1 , Torabezoid 2, Oval 3とでました。
目的の図形の名前をメモします。
＾－－
３番目のものと仮定すると、Shapes("Oval 3")の（）内を変えて、下記を作り、実行します
Sub test04()
Worksheets("Sheet1").Shapes("Oval 3").TextFrame2.TextRange.Select
End Sub
これでどうですか。
＝＝＝
同一シート上であっても、複数のShapeｓでは、TabOrder　的なものは設定できるのかどうか、
小生には判りません。多分その考えはない。
もうそろそろ、この域になると、WEBを調べても、情報（記事）がないと思うが、やりすぎでは？
UserFormのコントロール相互にはある。
参考　https://vba-beginner.com/vba1-8-3774/

お礼

回答ありがとうございます。
ただ、ちょっと使い方がわかりませんでした。

回答No.1

imogasi

何か適当な時期・タイミングに、例えばWorkbook_Openのイベントに、（またはシートのActivatイベントに）
Sub test02()
Worksheets("Sheet1").Shapes(1).TextFrame2.TextRange.Select
End Sub
のようなのを入れる（上記コードの真ん中の１行）のはどうか。
質問者のニーズに合うか、自信は無いが。

お礼

どうもありがとうございました。
たしかにこの方法で直ぐ書き込める状態になりましたが、Shape1にしか適用されないのですね。
挿入した図形でアクティブにするにはどうしたらよいでしょうか。