The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!
Sub ShapesDelete()
'Ran each individually
Dim myshape As Shape
For Each myshape In ActiveSheet.Shapes
'If myshape.Type = 12 Then myshape.DELETE 'ActiveX Control
If myshape.Type = 13 Then myshape.DELETE 'Image
Next myshape
End Sub
Sub Comments()
ActiveSheet.Cells.ClearComments
End Sub
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Join the community of 500,000 technology professionals and ask your questions.