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 نظر
تازه ترین ها