select and delete all pictures in a given range
On Jan 17, 5:17 pm, "Peter T" <peter_t@discussions wrote:
Delete all pictures partly or entirely within A5:C25 on Sheet2 of
activeworkbooik -
Sub test()
Dim s As String
Dim pic As Picture
Dim rng As Range
' Set ws = ActiveSheet
Set ws = ActiveWorkbook.Worksheets("Sheet2")
Set rng = ws.Range("A5:C25")
For Each pic In ActiveSheet.Pictures
With pic
s = .TopLeftCell.Address & ":" & .BottomRightCell.Address
End With
If Not Intersect(rng, ws.Range(s)) Is Nothing Then
pic.Delete
End If
Next
End Sub
Regards,
Peter T
"the excel-arator" wrote in
...
I would like to be able to have VBA for excel delete all the pictures on a
given worksheet, but only in a certain range of that sheet. Is this
possible?
ie. delete the pictures found only in the range A5:C25
Worksheets("Sheet2").Range("A5:C25").Shapes.Select All
Selection.Delete
'That baby doesn't work, but is there perhaps something similar that might
do the trick?
Any help is appreciated,
Thanks!
John
perfect one!! kudos to your knowledge.. this worked perfect for me
too!!! Hip hip hurray!!
|