- 締切済み
Rectangleクラスのselectメソッド失敗
EXCEL VBAで図形を描画するものを作成して動かしていました。 今までは通常に動作していたのですが、ある時から急に下記メッセージが表示してしまい。 それ以降、エラーが出続けています。 実行時エラー1004 Rectangleクラスのselectメソッドに失敗しました。 その図形を選択すると、四角形65580となっており、65536を超えている からかと想定しています。 図形の作成数を初期化すれば直るような気もしますが、どなたか 原因と対処方法が分かる方はいらっしゃらないでしょうか? なお下記の様に記述しています。 Sheets(シート名).Select ActiveSheet.Rectangles.Add(変数1,変数2,変数3, 変数4).Select Selection.Interior.ColorIndex = 変数5 Selection.SendToBack
- みんなの回答 (2)
- 専門家の回答
お礼
DreamyCatさん、ありがとうございます。 確かに言われたやりかたで、できるようになりました。 1回の操作で1.5万個位の描画をするので5回程度の 実行でまたエラーになってしまいそうです。 本操作をマクロ化すればよいのかもしれませんが、 マクロで数値を初期化する手段はないものでしょうか?