MS Excel: Remove all images - Visual Basic Snipplr Social Repository

Revision: 50081

at August 8, 2011 19:55 by mikaelpelle

Initial Code

Sub tester()
Dim DrObj
Dim Pict
Set DrObj = ActiveSheet.DrawingObjects
For Each Pict In DrObj
Pict.Select
Pict.Delete
Next
End Sub

Initial URL

Initial Description

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

Initial Title

MS Excel: Remove all images

Initial Tags

images, excel

Initial Language

Visual Basic