MS Excel: Remove all images

/ Published in: Visual Basic
Save to your folder(s)

VBA script to remove all the images present in the active sheet of the Microsoft Excel spreadsheet.

Copy this code and paste it in your HTML
  1. Sub tester()
  2. Dim DrObj
  3. Dim Pict
  4. Set DrObj = ActiveSheet.DrawingObjects
  5. For Each Pict In DrObj
  6. Pict.Select
  7. Pict.Delete
  8. Next
  9. End Sub

Report this snippet


RSS Icon Subscribe to comments

You need to login to post a comment.