Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


20459 / 76732 ←次へ | 前へ→

【61691】図形の削除で「メモリー不足」エラーになってしまう
質問  始めたばかりの初心者  - 09/5/27(水) 21:45 -

引用なし
パスワード
   また、解らない事があり質問に来ました、始めたばかりの初心者です。

複数のシートがあり、オートシェイプの図形をメモ代わりに挿入したまま
送ってくる事があり、削除のマクロを作りました。

Dim IX1 As Integer, IX2 As Integer, Shp As Shape
Sub Main()
  IX2 = Sheets.Count
  For IX1 = 1 To IX2
    Worksheets(IX1).Activate
    For Each Shp In ActiveSheet.Shapes
      If Shp.Name <> "" Then
       ActiveSheet.Shapes.SelectAll
       Selection.Delete
       Exit For
      End If
    Next
  Next
End Sub

これで、うまく削除できていたのですが、「実行時エラー'7'メモリが不足
しています。」とエラーになってしまうシートがありました。
他にもオートシェイプの図形が入っているシートもあったのですが、エラー
にはならず、図形の削除も出来ているものもありました。
そこで、エラーになったシートを1枚目に移動して、マクロを実行した処、
1枚目で同じエラーになりました。

デバックで、Shp.Nameの値や、エラーのステップを確認した処、
Shp.Name = "Drop Down1"
ActiveSheet.Shapes.SelectAll でエラーになっていました。
又、このシートを見た限り、オートシェイプの図形は無いように見え、
ツールバーの編集−ジャンプ−セル選択−オブジェクトでOKを押すと
「選択できるオブジェクトはありません」とエラーが表示されます。

自分なりに調べたのですが、原因や対処方法が解りません。
エラーの原因や対処方法を教えていただけないでしょうか。
3 hits

【61691】図形の削除で「メモリー不足」エラーになってしまう 始めたばかりの初心者 09/5/27(水) 21:45 質問
【61692】Re:図形の削除で「メモリー不足」エラーに... time 09/5/27(水) 22:18 発言
【61693】Re:図形の削除で「メモリー不足」エラーに... kanabun 09/5/27(水) 23:14 発言
【61701】Re:図形の削除で「メモリー不足」エラーに... 始めたばかりの初心者 09/5/28(木) 11:37 質問
【61711】Re:図形の削除で「メモリー不足」エラーに... time 09/5/28(木) 21:16 発言
【61720】Re:図形の削除で「メモリー不足」エラーに... 始めたばかりの初心者 09/5/29(金) 9:21 質問
【61721】Re:図形の削除で「メモリー不足」エラーに... time 09/5/29(金) 15:40 発言
【61724】Re:図形の削除で「メモリー不足」エラーに... kanabun 09/5/29(金) 21:57 発言
【61733】Re:図形の削除で「メモリー不足」エラーに... 始めたばかりの初心者 09/5/30(土) 12:32 お礼
【61746】Re:図形の削除で「メモリー不足」エラーに... time 09/5/31(日) 0:28 お礼

20459 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free