OnAction-Eigenschaft eines eingefügten Buttons...
Marc
kann mir vielleicht jemand bei meinem Problem helfen?
Ich füge in ein Sheet mittels VBA ein Button ein, für den ich eine Anweisung bei Betätigung festlegen möchte.
Dies passiert mit folgendem Code:
Sub Einfuegen()
Dim ole as object
Set ole = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
Link:=False, DisplayAsIcon:=False, Left:=10, Top:=10, Width:=75, Height:=37)
With ole
.OnAction = "LoadForm1"
.Object.Caption = "Einheit" & vbCrLf & "löschen"
End With0
End Sub
Die Fehlermeldung besagt, die OnAction-Eigenschaft könne nicht festgelegt werden, obwohl
beim Überwachungsausdruck "ole" "OnAction" eine direkte Eigenschaft des Objektes ist...
Weiß da jemand was?
Danke und Gruß
Marc
Anzeige