CommandButtons per VBA löschen

06/10/2007 - 10:15 von Henrik | Report spam
Hallo,
in einem Excel-Sheet sind drei Steuerelemente (CommandButton) enthalten. Ist
es möglich diese (z. B. mit einer For Each-Schleife) per VBA zu löschen?
Im voraus vielen Dank für die Hilfe.
Viele Grüße
Henrik Schmidt
 

Lesen sie die antworten

#1 Helmut Weber
06/10/2007 - 14:04 | Warnen spam
Hallo Henrik,

Sub DeleteCommand()
Dim oShp As Shape
For Each oShp In ActiveSheet.Shapes
With oShp
If .Type = msoOLEControlObject Then
.Delete
' MsgBox .OLEFormat.ClassType
' If .OLEFormat.ClassType = "Forms.CommandButton.1" Then
' MsgBox .OLEFormat.ClassType
' End If
End If
End With
Next
End Sub

Das làuft nicht mit F8 im single-step-mode.

Und daran, den Classtype von OLEFormat festzustellen,
bin ich gescheitert.

Excel behauptet steif und fest,
OLEFormat hàtte keine ClassType-Property.

:-(


Gruß

Helmut Weber, MVP WordVBA

"red.sys" & chr$(64) & "t-online.de"
Win XP, Office 2003 (US-Versions)


Hallo,
in einem Excel-Sheet sind drei Steuerelemente (CommandButton) enthalten. Ist
es möglich diese (z. B. mit einer For Each-Schleife) per VBA zu löschen?
Im voraus vielen Dank für die Hilfe.
Viele Grüße
Henrik Schmidt

Ähnliche fragen