[VBA] (nur) CommandButtons löschen, nicht Picture

[Rabe]

Hallo,

ich wollte alle CommandButtons (1-3) in einem Arbeitsblatt löschen, aber das eingefügte Bild nicht.
So geht es nicht, weder mit ".Caption" noch mit ".Name":

Code:

     If Sheets("Eingabe_ELC").Shapes.Caption <> "Picture1" Then
        Sheets("Eingabe_ELC").Shapes.SelectAll
        Selection.Cut
     End If

Wie formuliere ich das richtig?

[snb]

Code:

Sub M_snb()
   for j=1 to sheet1.oleobjects.count
      sheet1.oleobjects(1).delete
   next
End Sub

[Rabe]

Hi,

danke, super, klappt!