エクセルVBAで図形のテキストを取得してセルに入力

エクセルVBAで相談があります。
現在エクセルでシフト管理していて、頻繁にシフト入れ替えや移動がある為に、すぐ移動が出来る様に図形に名前や情報を入力してその図形を移動させたりして従業員と情報共有しています。

そこで相談なのですが、図形のテキストデータをその図形の下（図形で隠れる部分）のセルに入力していくVBAがあれば教えて頂きたいです。
図形の数は大体40ぐらいでやり取りしています。
一個の図形でなら出来たのですが複数がわかりませんでした。
宜しくお願い致します。

No.2 ベストアンサー 回答者： zongai 回答日時： 2022/10/05 23:55

Sub sample()

　　Dim shp As Shape
　　For Each shp In ActiveSheet.Shapes
　　　　'図形の左上が位置するセルに書き込む
　　　　shp.TopLeftCell = shp.TextFrame.Characters.Text
　　　　'図形の左上の右下のセルに書き込む
　　　　shp.TopLeftCell.Offset(1, 1) = shp.TextFrame.Characters.Text
　　Next
End Sub

図形の大きさがわからないので、
文字を書き込むセルを2パターンにしました。
不要な方は削除して下さい。

参考になるかな。

この回答へのお礼

無事使えました！
お二人とも親切にありがとうございました。

お礼日時：2022/10/07 11:24

No.1 回答者： mygoonickname 回答日時： 2022/10/05 23:36

こんばんは。

For Eachで、全ての図形を処理する事ができると思います。
良いサンプルが見付かりませんでしたが、質問者さんが１つできているとの
事ですので、それを、For Eachで処理すればできるかと思います。

●For Each～Nextループで全Shapeを選択するサンプルマクロ
https://www.relief.jp/docs/excel-vba-select-all- …
上記で、選択する部分を、質問者さんの処理に置き換えたら良いかと。