WithEvents for a Shape

T

tiredofit

Well-known Member
Joined
Apr 11, 2013
Messages
1,834
Office Version
  1. 365
  2. 2019
Platform
  1. Windows
I am trying to find an event for a shape but this does not work:


Code: 
Public WithEvents ShapesEvent As Shapes


because VBA doesn't recognise Shapes.


What should I declare it as?


Thanks
 
Last edited:
Sort by date Sort by votes
James006 said:
@ Jaafar

Well Done !!!

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

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 ?
 
Last edited:
Upvote 0

Excel Facts

Test for Multiple Conditions in IF?
Use AND(test, test, test, test) or OR(test, test, test, ...) as the logical_test argument of IF.
Jaafar Tribak said:
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 ?
Click to expand...

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
 
Upvote 0
James006 said:
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
Click to expand...

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.
 
Upvote 0
Jaafar

Obviously ... am talking ONLY about the 3 shapes ... inside the frame ... :wink:
 
Upvote 0
You must log in or register to reply here.

Similar threads

M
  • Solved
Deleting all shapes in all selected cells
Replies
1
Views
67
Mesh
M
T
  • Question
Move a shape based on Cell value. If cell is less than another shape moves up, if cell is more than another cell moved down.
Replies
5
Views
145
jolivanes
jolivanes
B
  • Question
Event code to give message box and change color of auto-shape
Replies
4
Views
264
bh24524
B
L
  • Solved
VBA to resize shape incrementally
Replies
3
Views
245
Lil Stinker
L
M
  • Question
VBA Event help, change shape of color as per option selections
Replies
5
Views
234
Jaafar Tribak
Jaafar Tribak

Forum statistics

Threads
1,215,720
Messages
6,126,439
Members
449,314
Latest member
MrSabo83

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top