|
Hallo Markus,
das OnAction-Item aus dem Ribbon erwartet diese Form:
Sub Messagebox(control As IRibbonControl)
So, wie Du es ja auch für die Messagebox gemacht hast.
Du kannst hier aber nicht einfach eine Funktion verwenden, wie Du es mit SendToExp versucht hast. Hier muss auch ein entprechendes Sub verwendet werden.
Sub SendToExp(control As IRibbonControl)
Man kann auch alle Aktionen auf eine Sub lenken und die einzelnen Button anhand der ID indentifizieren und z.B. über SELECT CASE auswerten.
Mache ich immer, wenn ich viele Buttons habe, und es nicht so viele Subs werden sollen. Siehe Beispiel unten:
@Sabina
Der Ribbon sendet automatisch den Parameter control (Objekt) mit. Da braucht man keinen Parameter übergeben und man kann auch keinen weiteren Parameter dort vorgeben. Dieses Objekt control enthält u.a. die ID, die im Ribbon für das Item angegeben wurde.
Code:
1
2
3
4
5
6
7
8 |
|
Sub cbBtnAction(control As IRibbonControl)
Select Case control.ID
Case "customButton"
MsgBox ("Hallo")
Case "customButton2"
' Mach was anderes
End Select
End Sub
|
_________
viele Grüße
Karl-Heinz
|