ActiveSheet.Pictures.Delete

I need to modify the above so that it does not include all the commandbuttons, but how?
I need commandbuttons and not a forms - button as the code needs to be exportable to other files and to take the code with them.

Any ideas?
Corey....

Hi Corey,

Try:

'=============
Public Sub Tester()
Dim SHP As Shape

For Each SHP In ActiveSheet.Shapes
With SHP
If .Type = msoPicture Then
.Delete
End If
End With
Next SHP
End Sub
'<<=============



---
Regards,
Norman



"Corey" wrote in message
...
ActiveSheet.Pictures.Delete

I need to modify the above so that it does not include all the
commandbuttons, but how?
I need commandbuttons and not a forms - button as the code needs to be
exportable to other files and to take the code with them.

Any ideas?
Corey....

thanks Norman.
Perfect
"Norman Jones" wrote in message
...
Hi Corey,

Try:

'=============
Public Sub Tester()
Dim SHP As Shape

For Each SHP In ActiveSheet.Shapes
With SHP
If .Type = msoPicture Then
.Delete
End If
End With
Next SHP
End Sub
'<<=============



---
Regards,
Norman



"Corey" wrote in message
...
ActiveSheet.Pictures.Delete

I need to modify the above so that it does not include all the
commandbuttons, but how?
I need commandbuttons and not a forms - button as the code needs to be
exportable to other files and to take the code with them.

Any ideas?
Corey....

Hi Corey,

Additionally, see Ron de Bruin's discussion at:

http://www.rondebruin.nl/controlsobjectsworksheet.htm

See particularly the section entitled: 'Delete only specific shapes'


---
Regards,
Norman

Dim SHP As Shape

For Each SHP In ActiveSheet.Shapes <======== How can i change this to
ALL Sheets in workbook ?
With SHP
If .Type = msoPicture Then
.Delete
End If
End With
Next SHP

Corey....
"Norman Jones" wrote in message
...
Hi Corey,

Additionally, see Ron de Bruin's discussion at:

http://www.rondebruin.nl/controlsobjectsworksheet.htm

See particularly the section entitled: 'Delete only specific shapes'


---
Regards,
Norman

Hi Corey,

Try:

'=============
Public Sub Tester()
Dim SH As Worksheet
Dim SHP As Shape

For Each SH In ThisWorkbook.Worksheets
For Each SHP In SH.Shapes
With SHP
If .Type = msoPicture Then
.Delete
End If
End With
Next SHP
Next SH
End Sub
'<<=============


---
Regards,
Norman



"Corey" wrote in message
...
Dim SHP As Shape

For Each SHP In ActiveSheet.Shapes <======== How can i change this to
ALL Sheets in workbook ?
With SHP
If .Type = msoPicture Then
.Delete
End If
End With
Next SHP

Corey....