VBAなんでも質問スレ Part2 [転載禁止]©2ch.net

[265 デフォルトの名無しさん 2017/02/23(木) 15:02:34.32 ID:Q2T7iSLN]

処理の基本をよく考えるべき。
1.Shape毎にSelection.ClearContentsする意味は?
2.shp.Delete後もループする意味は?
3.そもそもSelectionって何?つまり何が選択されている時に削除したいの?

For Each shp In ActiveSheet.Shapes
If shp Is Selection Then
shp.Delete
Exit For
End If
Next

じゃ駄目?