![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
EXCEL VBAで図形を描画するものを作成して動かしていました。
今までは通常に動作していたのですが、ある時から急に下記メッセージが表示してしまい。
それ以降、エラーが出続けています。
実行時エラー1004 Rectangleクラスのselectメソッドに失敗しました。
その図形を選択すると、四角形65580となっており、65536を超えている
からかと想定しています。
図形の作成数を初期化すれば直るような気もしますが、どなたか
原因と対処方法が分かる方はいらっしゃらないでしょうか?
なお下記の様に記述しています。
Sheets(シート名).Select
ActiveSheet.Rectangles.Add(変数1,変数2,変数3, 変数4).Select
Selection.Interior.ColorIndex = 変数5
Selection.SendToBack
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
僕もカウント100万以上まで育った子もってます。
今にも爆発しそうでドッキドキ。すこし調べなきゃとは思ってますが、カウント初期化はできないかも・・・。そして、問題原因は別じゃないかと。
想定で終わらず、裏付け取らなきゃキケンですよ。
というか、こんな問題では?↓
-- myメモ帳より --
Excel2003、再描画ON(ScreenUpdating=True:デフォルト値)で、大量のシェイプを描画すると、1004エラーが発生することあり。
ShapesのAddTextBox/Group/Deleteで発生を確認。
・発生頻度低(デバッグの中断がトリガー??)
・一度発生すると毎回発生
・エラー発生後、「継続」やステップ実行が可能
ファイルが壊れるっぽいので、要ファイル再作成。
現象から、おそらく描画絡み。タイミングや負荷が影響?
対処としては、
◎ScreenUpdating = False
△直前でシートやシェイプを.Select/.Activate
------
同一問題だといいんですが、どっちにしても不明だらけ。Excelが図形まわり弱いのだけは確かです。とりあえずファイル作り直してみて、再発さえしなければ忘れてよい気も。
分からないなら受け入れるしか・・・
一応対策として、ScreenUpdating = Falseと、Selectしないのがオススメです。
Dim s as Rectangle
Set s = Sheets(シート名).Rectangles.Add(...)
s.Interior.ColorIndex = 変数5
s.SendToBack
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) ②Excel 簡単にシートコピーしたら前日の残高と日付を変更させたい→マクロの記録でエラーが出ます 8 2022/07/16 20:40
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- その他(プログラミング・Web制作) このプログラミングをどう組みますか? Googlecolabでやってるんですが、出来る方お願いします 1 2022/07/13 10:52
- その他(プログラミング・Web制作) どういうプログラムで組みますか?google colabでやってるんですけど、出来る方お願いします。 1 2022/07/17 18:41
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) エクセルVBA 3 2022/06/23 20:00
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/04 09:39
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- JavaScript 電車の運賃を出すプログラムを作っています。 2 2022/06/22 09:36
- Visual Basic(VBA) マクロVBA 1シートをまとめる 閉じ方 初心者 SOS! 1 2022/06/17 14:54
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
excel のセルとセルを線で結ぶ
-
Excelの散布図でプロットした任...
-
ワードにて『√』の横線を長くし...
-
フォトショップで雲模様が作れ...
-
Photoshop cs6でカラーサークル...
-
イラストレーターでの描画エリ...
-
PowerPoint2000 オブジェクト...
-
OpenOfficeで矢印の作り方を教...
-
描画が速いVNCの(あるいは...
-
Excel2010 連続でフリーハンド...
-
word2007で描画オブジェクトと...
-
描画オブジェクトとは?
-
wordで正確なサイズの図の描画
-
Wordのバージョン違いで図形が...
-
EXCEL2002VBAのピクチャボック...
-
フォトショ 描画色と背景色が...
-
GIMPの描画色の左上の三角の色...
-
ワード2007で普通の矢印を引きたい
-
相関図をワードで・・・
-
案内用の矢印を印刷したいのですが
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの散布図でプロットした任...
-
excel のセルとセルを線で結ぶ
-
ワードにて『√』の横線を長くし...
-
OpenOfficeで矢印の作り方を教...
-
フォトショップで雲模様が作れ...
-
描画キャンパス内にテキストボ...
-
四角の図形の対角線の引き方
-
jw_cadのソリッド図形を透明化
-
Photoshop cs6でカラーサークル...
-
描画キャンパス外の図形をキャ...
-
折れ線の矢印の書き方
-
イラストレーターでの描画エリ...
-
Excel2010 連続でフリーハンド...
-
Wordでの境界線を点線にしたい
-
wordで正確なサイズの図の描画
-
EXCELのオートシェイプを一括削...
-
描画オブジェクトとは?
-
Wordで、図とテキストボックス...
-
Wordで右上がり・右下がりの矢印
-
数字をまるで囲む方法
おすすめ情報