Excel VBA質問箱 IV

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

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


23453 / 76732 ←次へ | 前へ→

【58645】Re:オートシェイプを消すマクロがわかりません
発言  かみちゃん  - 08/11/2(日) 15:07 -

引用なし
パスワード
   こんにちは。かみちゃん です。

ちょっと今時間がないので、簡単に。

>あと、Shapesコレクションにはオートシェイプ以外にも、
>グラフはもちろん、コメントや入力規則のドロップダウン▼や
>オートフィルタをかけていれば、そのドロップダウン▼も含まれます。

これ、失念してました。
数時間前に別の掲示板で、よく似た質問に対して、コメントしたところです。
こちらもフォローするのを忘れていました。

kanabunさんからの別案のアドバイスもあるので、そちらで検討していただいても
いいのですが、
一応、私が提示したコードの修正案を出しておきます。

Sub Sample1()
 Dim i As Integer

 For i = ActiveSheet.DrawingObjects.Count - 1 To 1 Step -1
  ActiveSheet.DrawingObjects(i).Delete
 Next
 MsgBox "最新のオブシェクト以外を削除しました" & vbCrLf & _
  "最新のオブジェクトは、" & ActiveSheet.DrawingObjects(1).Name
End Sub

ただし、このようにすると、フォームで配置したオブジェクトだけではなく、
コントロールツールバーで配置したオブジェクトも含まれるので、注意してください。

2回目の質問については、ちょっと、今、考えている余裕がありませんので、
時間ができ、コメントがついていなければ、検討します。
申し訳ありません。

0 hits

【58638】オートシェイプを消すマクロがわかりません りー 08/11/2(日) 1:27 質問
【58640】Re:オートシェイプを消すマクロがわかりま... かみちゃん 08/11/2(日) 7:44 発言
【58642】Re:オートシェイプを消すマクロがわかりま... りー 08/11/2(日) 11:56 お礼
【58643】Re:オートシェイプを消すマクロがわかりま... りー 08/11/2(日) 12:01 質問
【58644】Re:オートシェイプを消すマクロがわかりま... kanabun 08/11/2(日) 14:55 発言
【58645】Re:オートシェイプを消すマクロがわかりま... かみちゃん 08/11/2(日) 15:07 発言
【58647】Re:オートシェイプを消すマクロがわかりま... りー 08/11/2(日) 16:11 お礼
【58646】Re:オートシェイプを消すマクロがわかりま... りー 08/11/2(日) 16:03 お礼
【58648】Re:オートシェイプを消すマクロがわかりま... kanabun 08/11/2(日) 16:17 発言
【58649】Re:オートシェイプを消すマクロがわかりま... かみちゃん 08/11/2(日) 17:05 発言
【58650】Re:オートシェイプを消すマクロがわかりま... りー 08/11/2(日) 18:29 お礼

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