VBA code to function differently on right & left click

[hrayani]

Dear Friends,

If Possible, a small VBA code is required which I would assign to a shape named "Index"

I want the Range("A1").value = "Right" when the shape is right clicked
I want the Range("A1").value = "Left" when the shape is left clicked

Regards,

Humayun

 

[hrayani]

Pls see below pic. There is no option to assign macro

 

[Micron]

It should work if you choose View Code.
I think I might have created that other menu using a form control label.

 

[hrayani]

It should work if you choose View Code.
I think I might have created that other menu using a form control label.

The vew code directs me to below

Private Sub Label1_Click()

End Sub

Then I pasted your provided code in there but nothing happens

 

[Micron]

In where? Inside that sub? Then no, below. Please show, don't just tell.

 

[hrayani]

In where? Inside that sub? Then no, below. Please show, don't just tell.

yes Inside that sub....
Wasn't I supposed to do that ??

 

[Micron]

No. The operative word being "below". From post 8:

You will end up with a click event sub that you don't need. Paste the code I gave you below that then try it.

 

[hrayani]

No. The operative word being "below". From post 8:

Tried both ways but to no avail

Initially I pasted your provided code under the click event without removing it pls see below

Private Sub Label1_Click()

End Sub

Private Sub Label1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'put your own code in this section for what you want to happen with right vs left click
If Button = 1 Then
    Range("A1").Value = "Right"
Else
    Range("A1").Value = "Left"
End If

ActiveCell.Select
End Sub

& then tried after removing the click event

Private Sub Label1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'put your own code in this section for what you want to happen with right vs left click
If Button = 1 Then
    Range("A1").Value = "Right"
Else
    Range("A1").Value = "Left"
End If

ActiveCell.Select
End Sub

 

[Micron]

Don't know what the issue is. Worked for me. If you want to post a wb copy on a file share maybe I can see what the problem is.
Or first try putting a break point on the first if line, then go back to the sheet and click on the label and see if the code runs. If not, try going through the motions again to assign a macro - this time choose the button event code. If none of that works then I'm out of ideas without looking at your wb.

 

[hrayani]

Don't know what the issue is. Worked for me. If you want to post a wb copy on a file share maybe I can see what the problem is.
Or first try putting a break point on the first if line, then go back to the sheet and click on the label and see if the code runs. If not, try going through the motions again to assign a macro - this time choose the button event code. If none of that works then I'm out of ideas without looking at your wb.

My Bad!
I forgot to exit the design mode that's because I don't work at all with the active X controls
Now the solution you provided is working just perfect

I apologize for the trouble & many thanks for the continuous follow up

Regards,

 

[Micron]

Glad you got it figured out and thanks for the recognition.