EventDrop stopped working

[stanbriggs]

Visio Professional 2016
my EventDrop event has stopped being executed. it worked until a couple of days ago. no, I have no idea what I did to make it stop. I have tried to re-create the things that I have done ... all to no avail.

the code does not fail it just does not execute. I am sure that it does not execute because the first statement is a 'debug.print "text"' and the second is a 'msgbox "text2" '.

this is my entry in the EventDrop cell: '=CALLTHIS("ThisDocument.OnMyShapeDrop")'.
in the Trust Center I have checked 'Enable all macros (not recommended; potentially dangerous code can run)'.
in 'Visio Options' -> 'Advanced'->'General' the 'Enable Automation events' is checked.

is buying someone a beer that figures this out allowed?

[Paul Herber]

One test to do is as follows:
Create an Org chart, just a few simple shapes. Drop an Executive on the page, then drop a Manager on the Executive. Does the Manager get moved to below the Executive with a line connecting the two? If so then the fundamental event is still working within Visio. If not then more investigation will be needed.

[stanbriggs]

I tried the organizational chart test.
I dropped an executive (coin in this case) onto the page. I then dropped a manager coin onto the page. nothing happened. No shuffling of the coins; no lines between them.
I will now try and figure out why something so fundamental would stop working.
Thanks!

[Paul Herber]

Dropping the shapes on the page is not what I wrote! Drop the Manager on top of the Executive.

[stanbriggs]

yep. that's exactly what you said. my bad.
redid by dropping an executive and then dropping a manager on top of the executive. nothing. they both just sat where I put them and no connectors.

[Paul Herber]

First of all I suggest you do a repair of Visio.
Do you have any addins installed?