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を探す
おすすめ情報
- ・「みんな教えて! 選手権!!」開催のお知らせ
- ・漫画をレンタルでお得に読める!
- ・【選手権お題その1】これってもしかして自分だけかもしれないな…と思うあるあるを教えてください
- ・【穴埋めお題】恐竜の新説
- ・我がまちの「給食」自慢を聞かせてっ!
- ・冬の健康法を教えて!
- ・一番好きな「クリスマスソング」は?
- ・集合写真、どこに映る?
- ・自分の通っていた小学校のあるある
- ・フォントについて教えてください!
- ・【大喜利】【投稿~12/6】 西暦2100年、小学生のなりたい職業ランキング
- ・これが怖いの自分だけ?というものありますか?
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・とっておきの「夜食」教えて下さい
- ・これまでで一番「情けなかったとき」はいつですか?
- ・遅刻の「言い訳」選手権
- ・「覚え間違い」を教えてください!
- ・とっておきの手土産を教えて
- ・「平成」を感じるもの
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・10代と話して驚いたこと
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの散布図でプロットした任...
-
excel のセルとセルを線で結ぶ
-
ワードにて『√』の横線を長くし...
-
四角の図形の対角線の引き方
-
Illustratorで、イラストにふち...
-
エクセルの線種固定について
-
Wordで右上がり・右下がりの矢印
-
Wordでの境界線を点線にしたい
-
描画キャンパス外の図形をキャ...
-
Excel 2003で四半円
-
フォトショップで雲模様が作れ...
-
描画キャンパス内にテキストボ...
-
jw_cadのソリッド図形を透明化
-
イラストレーターでの描画エリ...
-
図形内の線などが勝手に移動します
-
エクセルのデータグループ化の...
-
Word■図が編集画面外に出て消え...
-
Wordで挿入した画像を円で囲み...
-
word 図形描画を同じ位置に貼る...
-
【WORD】ヘッダーに設定した画...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの散布図でプロットした任...
-
excel のセルとセルを線で結ぶ
-
ワードにて『√』の横線を長くし...
-
イラストレーターでの描画エリ...
-
OpenOfficeで矢印の作り方を教...
-
描画キャンパス内にテキストボ...
-
Wordでの境界線を点線にしたい
-
jw_cadのソリッド図形を透明化
-
描画キャンパス外の図形をキャ...
-
フォトショップで雲模様が作れ...
-
折れ線の矢印の書き方
-
四角の図形の対角線の引き方
-
Photoshop cs6でカラーサークル...
-
Excel2010 連続でフリーハンド...
-
Wordで、図とテキストボックス...
-
PowerPoint2000 オブジェクト...
-
Excel 2003で四半円
-
描画オブジェクトとは?
-
Wordで右上がり・右下がりの矢印
-
案内用の矢印を印刷したいのですが
おすすめ情報