Identify right click on my toolbar button

[gonen]

Hello

I have an xla file with private toolbar and few buttons.

When I click on a button, the assigned macro starts to run.

I am trying to assign two different processes to a button: one for click, and the other for right-click.

my question is:
is it possible assign two macros to a toolbar buttons. one for click and second for right-click.

or

is it possible to assign a macro to the click, and to open a customized toolbar on right click of the same button ?



currently the button is assigned a macro using this code:

            With .Controls.add(Type:=msoControlButton)
                .OnAction = "'" & ThisWorkbook.Name & "'!" & macroname
                .Style = msoButtonIconAndCaption
                .FaceId = iconnum(iCtr)
                .TooltipText = tt
            End With

thanks for help

 

[djreiswig]

I don't think you can do a right click on a toolbar. In Excel 2003 it brings up the select toolbar menu. I had a similar desire in one of my programs, so I ended up using a control+click and a shift+click for 2 other functions from a single button. You could also use a combination of the two to get a 4th function. Would this work for you?

 

[gonen]

interesting. can you show sample code ?

thank you !

 

[djreiswig]

Put this in your toolbar button event. I also added an explanation to the toolbar button tip to show what the combinations did.

    'Control but not Shift
    If CBool(GetKeyState(vbKeyControl) And &HFF80) And Not CBool(GetKeyState(vbKeyShift) And &HFF80) Then
    
    'Shift but not Control
    ElseIf CBool(GetKeyState(vbKeyShift) And &HFF80) And Not CBool(GetKeyState(vbKeyControl) And &HFF80) Then
    
    'Shift and Control
    ElseIf CBool(GetKeyState(vbKeyShift) And &HFF80) And CBool(GetKeyState(vbKeyControl) And &HFF80) Then
    
    'Not Shift and not Control
    Else
    
    End If

 

[gonen]

thanks ! I will try it tomorrow !