How to stop CommandButtons being deleted as pictures in code??

[Corey]

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....

 

[Norman Jones]

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



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....

 

[Corey]

thanks Norman.
Perfect

 

[Norman Jones]

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'

 

[Corey]

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]

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
'<<=============