Excel VBA質問箱 IV

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

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


23464 / 76738 ←次へ | 前へ→

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

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

> 最後に実行した分のオートシェイプだけが表示される

質問が少しわかりづらいのですが、以下のような感じでいかがでしょうか?

Sub Sample()
 Dim shp As Shape
 Dim i As Integer
 
 For i = ActiveSheet.Shapes.Count - 1 To 1 Step -1
  ActiveSheet.Shapes(i).Delete
 Next
 MsgBox "最新のオートシェイプ以外を削除しました" & vbCrLf & _
  "最新のオートシェイプは、" & ActiveSheet.Shapes(1).Name
End Sub

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

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