Funktionszuweisung
26.07.2019 00:45:34
Alex
ich habe ein ActiveX-Button erstellt und möchte ihm eine Funktion zuweisen.Ich füge nur den _ relevanten Code-ausschnitt ein:
Set cbutton = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, _
DisplayAsIcon:=False, Left:=.Left - breite, Top:=.Top, Width:=breite, Height:=.Height)
With cbutton
With .Object
.BackColor = &H80000012
.ForeColor = &H8000000F
End With
End With
Und hier die Funktion im Modul auf die der Button zugewiesen werden soll:
Sub reset ()
ActiveSheet.Shapes(Application.Caller).TopLeftCell.Offset(0, 1).Value = 0
End Sub
Das ganze läuft durch eine Schleife bei der viele solcher Buttons erstellt werden und ich möchte das alle generierten Buttons die obere Funktion zugewiesen bekommen.