VBAでシェープ

質問

例えばA1セルに”えくせる”と入力されていたとします。
ここでマクロを実行すると、A1セルにぴったり合うぐらいの大きさでテキストボックスが作成され、A1セルの”えくせる”という文字がテキストボックスに入力されるというマクロのコードが知りたいのですが、何回思考してもうまくいきません。とある方のホームページでダウンロードしたワークシートに、同じようなマクロがあったので技術的には可能と思うのですが。
ちょっと難しいと思うのですが、どなたかVBAのプロの方がおられたら教えて頂きたいです。

回答No.1

noname#29107 · ベストアンサー

テキストボックスを作成する位置は、A1で実行したらA1セルの場所でいいのでしょうか？
Sub test()
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, _
ActiveCell.Left, ActiveCell.Top, ActiveCell.Width, ActiveCell.Height) _
.TextFrame.Characters.Text = ActiveCell.Value
End Sub

こんな感じでどうでしょう？

お礼

早速の回答ありがとうございました。
出来ました，希望通りで感動しました。
変な仕事なのですが、たくさんのセルの内容をテキストボックスにしたかったので、大変助かります。
ありがとうございました。