Sub オブジェクト_図形_を削除する()
    
    Worksheets("Sheet1").Shapes("図形の名前").Delete
    
End Sub