エクセルのオートシェイプの内容を特定のセルにコピー

質問

エクセルのオートシェイプの内容を特定のセルにコピーしたいのです
詳しい流れとしては・・
・エクセルシートの特定の列にはあらかじめ上から「(1)、(2)、・・(10)」と記入されている
・新規オートシェイプ（主に吹き出し）をシート上に作成
・オートシェイプのテキストの内容を「(1)　・・・・・」と記入
・記入が終了すると、記入されてあった番号と同じセル（この場合(1)）にテキストの内容をコピーする
・続けて新規でオートシェイプを作成し、同様に「(2)　・・・・」と記入
という流れなのですが、わかりますでしょうか

セルの内容をオートシェイプにコピーはわかるのですが、逆がわかりません。
宜しく御願いします

回答No.1

lark_0925 · ベストアンサー

ユーザー定義関数で考えて見ます。
標準モジュールに

Function shape_text(ByVal shpnm As Variant, _
　　　　　　　　　　Optional ByVal shtnm As Variant = "", _
　　　　　　　　　　Optional ByVal bknm As Variant = "") As Variant
　　Dim bk As Workbook
　　Dim sht As Object
　　Application.Volatile True
　　Set bk = ActiveWorkbook
　　If bknm <> "" Then
　　　Set bk = Workbooks(bknm)
　　　End If
　　Set sht = bk.ActiveSheet
　　If shtnm <> "" Then
　　　Set sht = bk.Sheets(shtnm)
　　　End If
　　shape_text = sht.Shapes(shpnm).TextFrame.Characters.Text
　　Set bk = Nothing
　　Set sht = Nothing
End Function

あるシートに「テキスト 1」というシェイプのテキストボックス作成し、
中に文字列を記述します（　例　Lark_0925）

適当なセルに
=shape_text("テキスト 1")

と指定してみてください。
テキスト 1に設定した「Lark_0925」という文字が表示されます。

留意点

オプションの計算方法は、自動に設定して置いてください。

shape_text関数を設定後に対象の図形の文字列を変更しても
直ちにshape_text関数を設定したセルに変更が反映されるわけではありません。変更は、再度そのブックを開いた時に反映されます。

この関数の大量の使用には不向きです。