エクセルの学校：全文検索：Hyper Estraier： VBA 強制終了

Results of 1 - 1 of about 85 for VBA 強制終了 (0.004 sec.)

vba (14710), 強制終了 (237)

[[20100807114935]]: #score: 16177; @digest: 25c2d26e80c0e968220ed749fa795229; @id: 50792; @mdate: 2010-08-09T04:15:41Z; @size: 2952; @type: text/plain; #keywords: msogroup (15602), zu (8085), msoautoshape (7264), drawingobjects (5207), 括削 (4395), もじ (3932), 図形 (2635), ichinose (2479), doevents (2400), 除() (2102), 御座 (1865), yama (1853), 様有 (1630), 部消 (1368), shapes (1323), 強制 (1195), 削除 (1130), ウッ (1096), 有難 (1056), う御 (975), 形を (936), 一括 (929), 座い (881), 改良 (775), ッシ (744), delete (721), shape (698), じ） (668), type (638), の図 (519), activesheet (517), 除す (505); 『2000個の図形を一括削除』（もじもじ）
EXCEL2002を使っています。図形を一括削除するマクロを作っていますが、図形が多すぎると「エラーが発生し為、ファイルを終了します。」見たいなのでてきて、ファイルが強制的に閉じてしまいます。何処が悪いのか、ファイルが閉じてしまう為、解りません。少量の図形を削除する時はまったく問題はありませんが、削除する図形の個数の制限があるのでしょうか? （図形は、オートシェイプで作っています。グループ化した物もたくさんあります。）以上、宜しくお願いします。 ---- （もじもじ）さんこんにちは。マクロを使わずにやってもらったらどうでしょうか。どれかひとつ図形を選択して「Shift」+「Ctrl」+「Space」を押せばすべてのオブジェクトが選択されます。その時に「Delete」を押せば削除されると思いますが。一度やってみてください。もしできなかったらごめんなさい。 (YAMA) ---- >図形を一括削除するマクロを作っていますが、コードを見せてください。 ichinose ---- ＞YAMA様有難う御座います。エクセルに詳しくない方にデータ（数字のみ）を打ち込んでもらい、それに合わせてselectcaseにて図をセルごとコピーする事で貼付けする作業をマクロにて出来るようにしました。後は、図を消す煩わしがさあり、少し改良しようと試みています。＞ichinose様＞コードを見せてください。 Sub 図の削除() Dim zu As Shape For Each zu In ActiveSheet.Shapes If zu.Type = msoGroup Or zu.Type = msoAutoShape Then zu.Delete Next zu End Sub 上記、おかしいのでしょうか?msogroupが引っかかっているのでしょうか? 何卒、ご教授願います。(もじもじ） ---- こんにちは全部消してはダメですか? Sub test() ActiveSheet.Shapes.SelectAll Selection.Delete End Sub （ウッシ） ---- 本当は、削除は、Shapesではなく、 DrawingObjectsで回す方が安全ですよ。 [[20100528140459]] ↑ 理由は、ここに投稿していました。今回の問題と直接の関係はないかもしれませんが・・・。 Sub 図の削除() Dim zu As Shape For Each zu In ActiveSheet.Shapes If zu.Type = msoGroup Or zu.Type = msoAutoShape Then zu.Delete doevents Next zu End Sub 困ったときの Doevents とりあえず試してみてください。 ichinose ---- ウッシ様有難う御座います。全部削除でもいいからと思いやってみましたが、エラーが表示され、強制終了となりました。せっかく教えていて頂いたのに、有難う御座います。 ichinose 様 DrawingObjectsの記述有難う御座います。こちらで試してみたところ、きれいに消えてエラーが出ませんでした。 DrawingObjectsはヘルプにも載っていないのでびっくりしました。\(◎o◎)/! DrawingObjectsをどのように使えば良いか解らないので、ichinose様がVBAの記述をしてくれて助かりました。これで、何とか出来そうです。本当に有難う御座います。（もじもじ） ---- ichinose様 DoeventsはDrawingObjectsの仲間かと思っていましたら、違っていたみたいですね。でも、このDoeventsのおかげで、無事出来ました。 VBAは素人なので良く解っていないも部分あり、トンチンカンなことを言ってすみません。どうも有難う御座いました。（もじもじ） ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201008/20100807114935.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ