excel オートシェイプ図形内の文字を一括コピー

質問

オートシェイプの図形内の文字を一括コピーして
セルに貼り付けることはできますでしょうか？
図形描画の矢印マークで図形は一括コピーできますが
図形内の文字はコピーできずに困っています。
誰かわかる形いましたらご教授ください。

回答No.1

keithin

いいえ，できません。
エクセルでは一個ずつやるしか，方法はありません。

作業例：
ALT+F11を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

sub macro1()
　dim s as shape
　on error resume next
　for each s in activesheet.shapes
　s.topleftcell = s.textframe.characters.text
　next
end sub

sub macro2()
　dim s as shape
　dim buf as string
　on error resume next
　for each s in activesheet.shapes
　buf = buf & "," & s.textframe.characters.text
　next
　range("A1") = mid(buf, 2, len(buf))
end sub

ファイルメニューから終了してエクセルに戻る
ALT+F8を押し，いま登録したマクロを実行する。

＃コピーしていったいどうしたいのか，ご相談に肝心のことが書かれていませんので，てきとーに補ってマクロを作ってあります。