Excel VBA質問箱 IV

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

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


20453 / 76735 ←次へ | 前へ→

【61701】Re:図形の削除で「メモリー不足」エラーになってしまう
質問  始めたばかりの初心者  - 09/5/28(木) 11:37 -

引用なし
パスワード
   timeさん、kanabunさん、レスありがとうございます。

 コメントがあった場合やリスト指定の入力規則を指定しても、正しく動作
しないとの事でしたので、以下のように変更しました。

Dim IX1 As Integer, IX2 As Integer, Last_Row As Long, Shp As Object
Sub Main()
  IX2 = Sheets.Count
  For IX1 = 1 To IX2
    Worksheets(IX1).Activate
    Last_Row = Cells.SpecialCells(xlLastCell).Row
    Range("A1:IV" & Last_Row).ClearComments
    For Each Shp In ActiveSheet.Shapes
      If Shp.Name <> "" Then
        Cells(1, 1) = Shp.Name
        ActiveSheet.DrawingObjects.Delete
        Exit For
      Else
        Cells(1, 1) = ""
      End If
    Next
  Next
End Sub

 削除出来るか確認の為、オートシェイプの図形を1つ挿入してShp.Nameの
値が解るようにして、マクロを実行した処、図形が削除され、A1欄は「Drop
Down 1」が表示されました。
 上書き保存した後、図形が無い場合でも問題ないか確認する為、マクロを
もう一度実行した処、図形は無いのにA1欄は「Drop Down 1」が表示されたま
まなってしまいます。
 これは、まだ何処かに図形が残っているという事なのでしょうか?

0 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 お礼

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