Microsoft Office Forums - View Single Post - Pass Arguments to Function Through Ribbon

gmaxey · 03-14-2015, 05:04 PM

There was nothing above my post when I replied earlier. Just the thread title.

I'm assuming you have a common button OnAction macro defined in your RibbonX and a Button OnAction macro something like the following in your VBA project:

Code:

Sub ButtonOnAction(control As IRibbonControl)
Dim pCall As String
Select Case control.ID
  Case "Btn1", "Btn2", "Btn3", "Btn4" '... etc.
     modMain.DoSomethingWithThisButton control.Tag 'Use the control tag property to define a variable argument.
  Case Else
    'Do Nothing
End Select
End Sub