Click-event bei OLE-Steuerelementen auswerten
Stephan
ich habe ein kleines Problemchen mit Steuerelementen im Tabellenblatt.
Der Ablauf im Code ist wie folgt:
-Tabellenblatt wird erstellt
-ein Commandbutton wird in dem Tabellenblatt erzeugt
und nun sollen Click-Events des Buttons ausgewertet werden.
Ich hab das versucht mittels einer Klasse zu programmieren,
beim Compilieren kommt zwar keine Fehlermeldung,
aber das Event wird nicht ausgeführt. Woran liegts?
Hier der Code im Hauptmodul:
_____________________________________________________________
Sub steuerelemente()
'Button
Dim oCommand1 As clscommandbutton
Set oCommand1 = New clscommandbutton
Dim oComTemp As Object
'Button definieren
Set oComTemp = Worksheets(4).OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=780, Top:=25.5, Width:=72, Height:=24)
oComTemp.ShapeRange.ScaleWidth 1.65, msoFalse, msoScaleFromTopLeft
oComTemp.ShapeRange.ScaleHeight 1.56, msoFalse, msoScaleFromTopLeft
'dem Objekt oCommand1 der Klasse clscommandbuttton mit der Methode DerCmd
'wird das Steuerelement oComTemp zugewiesen
Set oCommand1.DerCmd = Worksheets(4).OLEObjects(2).Object
End Sub
________________________________________________________
Hier der Code im Klassenmodul namens clscommandbutton:
'mach mit den Ereignissen was
Public WithEvents DerCmd As MSForms.CommandButton
Private Sub DerCmd_Click()
MsgBox ("jupp")
End Sub
______________________________
Die Messagebox wird beim Klick des Buttons nicht angezeigt.-Wieso?