Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

20450 / 76732

←次へ　｜　前へ→


	【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

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

5 hits

▼

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