Eigenes Ribbon
30.06.2013 19:43:10
Andrea
das untenstehende Ribbon liest den ToggleButton!
Beim Klicken des ersten Buttons erscheint die MsgBox mit einer Erklärung, welcher Wert der Toggle Button ( z.B. tgb_1) gedrückt wurde.
Wie fange ich mit einem Case die tgb_1 bis tgb_5 ab?
Ich habe die TGB_Makro1, bis TGB_Makros schon vorbereitet.
Wie heisst der Case-Befehl zum Ausführen der TGB_Makro1,..2,...5
Danke und noch einen schönen Sonntag-Abend
Andrea
Sub OnActionTglButton(control As IRibbonControl, _
pressed As Boolean)
' Callbackname in XML File "onAction"
' Callback für einen Toggle Button Klick
' Callback for a Toggle Buttons click event
Select Case control.id
' If pressed = True Then
' Else
' End If
Case Else
MsgBox "The Value of the Toggle Button """ & control.id & """ is: " & pressed & _
vbCrLf & _
"Der Wert der Toggle Button """ & control.id & """ ist: " & pressed, _
vbInformation
End Select
End Sub
Anzeige