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


Comments


You need to login to view comments.