マクロを使用したオートシェイプ一括グループ化の挙動について

Question

大量にあるオートシェイプをグループ化するマクロを作成しようとしています。

量が多すぎるせいか、グループ化から漏れるオートシェイプがあります。

（オブジェクトの選択と表示から手動で選択することは、大量の為、現実的ではありません）

全てを一気にグループ化できなくても、数個の塊になればよいと考えています。

１、全オートシェイプの名前を配列に保存後、「ActiveSheet.Shapes.Range(配列名).Select」で一括選択を

するのですが、実際に選択されているのは半分以下です。

２、Worksheets(1).Shapes.SelectAll 　' select all shapes

set sr = Selection.ShapeRange　　' create ShapeRange

上記を使用してみましたが、ファイルサイズが大きいものは

実行時エラー：1004　アプリケーション定義またはオブジェクトの定義エラーです

となります。

個人的に、２はオートシェイプの数に上限があるのではないかと思っています。

１、２以外の解決法の有無、オートシェイプの数の上限の有無をご教示いただければ幸いです。

Answer 1

​ha6o43 さん、こんにちは。

マイクロソフト コミュニティをご利用いただき、ありがとうございます。

マクロでオートシェイプのグループ化をしても、グループ化に漏れるオートシェイプがあるということですね。

オートシェイプのグループ化の上限について調べてみましたが、該当する情報は見つかりませんでした。

そのため、オートシェイプの数が要因となっているかは解らなかったです。

当フォーラムでは、 Excel の使い方やトラブルなどの一般的な情報のやり取りが行われていることが多いです。

VBA に関する質問であれば、開発者の方々が情報交換を行っている VBA フォーラムがありますので、こちらに質問して回避策の情報を集めてみてはいかがでしょう。

もしかすると、同じような経験をお持ちの方から情報が得られるかもしれません。

◇ Msdn フォーラム - Visual Basic for Application(VBA)

※ 投稿される場合は、マクロコード全文と、シート内のオートシェイプの数などを記載して質問するとよいです。

せっかく当フォーラムに質問をしていただいたのに、他のフォーラムのご案内のみとなってしまい、ごめんなさい。

Answer 2

大沢様

ご回答ありがとうございます。

VBAのフォーラムがあるとは知らず、大変失礼いたしました。

さっそくVBAフォーラムに質問を投稿しようと思います。

調査にお時間を割いていただき、ありがとうございました。

疑問に思うことができたら質問すると思いますので、

その時はまた宜しくお願い致します。

ありがとうございました。