Sub DeleteShapes()
               On Error Resume Next
               ActiveSheet.DrawingObjects.Visible = True
               ActiveSheet.DrawingObjects.Delete
               On Error GoTo 0
               End Sub
                
               
               Sub DeleteComments()
                ActiveSheet.Cells.ClearComments
                End Sub
                
               
                
               
               0 نظر
تازه ترین ها