WithEvents for a Shape

[tiredofit]

I am trying to find an event for a shape but this does not work:

Public WithEvents ShapesEvent As Shapes

because VBA doesn't recognise Shapes.


What should I declare it as?


Thanks

 

[Jaafar Tribak]

@ Jaafar

Well Done !!!

It looks like removing the hook is not working as expected ( Windows XP - Excel 2007)

Thanks for testing the code James.

Did you download the workbook demo ?

What happens when you click on the 'Remove Right-Click Macro...' button ? The shapes have a OnAction macro attached to them as well (Left Click)... Are you sure it is not the Left Click Macro (OnAction Macro) that runs instead of the Right-Click macro ?

 

[James006]

Thanks for testing the code James.

Did you download the workbook demo ?

What happens when you click on the 'Remove Right-Click Macro...' button ? The shapes have a OnAction macro attached to them as well (Left Click)... Are you sure it is not the Left Click Macro (OnAction Macro) that runs instead of the Right-Click macro ?

Yes ... downloaded the demo ...

Yes ... using the right-click on the 'Remove' commandbutton ... and nothing happens ... since all shapes still have the right click operational ...

Hope this clarifies

 

[Jaafar Tribak]

Yes ... downloaded the demo ...

Yes ... using the right-click on the 'Remove' commandbutton ... and nothing happens ... since all shapes still have the right click operational ...

Hope this clarifies

No... Only the shapes that are inside the frame will have the right-click operational.

If you want to add the right-click functionality to ALL shapes then they will have to be added in the code one by one.

 

[James006]

Jaafar

Obviously ... am talking ONLY about the 3 shapes ... inside the frame ... :wink: