Deleting pictures from multiple worksheets
 

I have inserted a picture on several worksheets. It is the same picture for
all sheets. i was able to insert them by selecting all the sheets and then
inserting. I can't seem to delete the pictures by selecting all the sheets. I
have to delete them one at a time. Is there a way to delete all at the same
time?

Deleting pictures from multiple worksheets
 

Dford: I found this just Googling It was in MS.Excel.Misc NG

This little sub will remove all pictures on all worksheets in a
workbook:


Sub pic_puller()
Dim w As Worksheet
For Each w In ActiveWorkbook.Worksheets
w.Activate
pCount = w.Shapes.Count
If pCount 0 Then
For i = pCount To 1 Step -1
w.Shapes(i).Select
Selection.Cut
Next
End If
Next
End Sub
--
By Gary's Student <<<<<<

HTH\
Jim May




"dford" wrote in message
:

I have inserted a picture on several worksheets. It is the same picture for
all sheets. i was able to insert them by selecting all the sheets and then
inserting. I can't seem to delete the pictures by selecting all the sheets. I
have to delete them one at a time. Is there a way to delete all at the same
time?

Deleting pictures from multiple worksheets
 

Thanks. That worked great!

"JMay" wrote:

Dford: I found this just Googling It was in MS.Excel.Misc NG

This little sub will remove all pictures on all worksheets in a
workbook:


Sub pic_puller()
Dim w As Worksheet
For Each w In ActiveWorkbook.Worksheets
w.Activate
pCount = w.Shapes.Count
If pCount 0 Then
For i = pCount To 1 Step -1
w.Shapes(i).Select
Selection.Cut
Next
End If
Next
End Sub
--
By Gary's Student <<<<<<

HTH\
Jim May




"dford" wrote in message
:

I have inserted a picture on several worksheets. It is the same picture for
all sheets. i was able to insert them by selecting all the sheets and then
inserting. I can't seem to delete the pictures by selecting all the sheets. I
have to delete them one at a time. Is there a way to delete all at the same
time?