【Excel】描画オブジェクトの全削除【VBA】

Sub AllDrawingObjectsDelete()
    Set dr = ActiveSheet.DrawingObjects
    
    '-- Visible = Trueの描画オブジェクトを全削除
    dr.Delete
    
    '-- Visible = Falseの描画オブジェクトを全削除
    For Each d In dr
        d.Delete
    Next

    Set dr = Nothing
End Sub

　ここを参考にさせていただきました。

　う～ん、素晴らしいです。