Macro that can be assigned to a shape that records selection

Why're you posting this here? you already have a relevant post

Please refer to the attached and see if this is what you were trying to achieve.

These 2 routines will allow you to get a reference to the shape clicked and store that information.

Please Login or Register  to view this content.

Assign AnyShape_Click macro to all shapes.
This will change the colour for the shape clicked. I noticed one of the shape specific routines used different colours, if that is the case you will need to add more code to the new macro to determine what colour should be used.

This works too

Please Login or Register  to view this content.

But it's un maintainable

This is the most simple solution.
Assign the same macro to all shapes (just one macro for any number of shapes)

You and use Constants in your macros and use these.

I have this list in my VBA project outsie the modules

Please Login or Register  to view this content.

And you can replace the color names for a status:
and the option noColor to default to when it's nothing

At the same time you can include a test in the selection shape that if it's not selectable to skip, so name one of the colors NOSELECT and you check if the shapes color is noselect then skip.
Hope I'm making sense
Happy coding

I am assuming that this is a kind of process you want to visualize.
The process sheet I named Process_Sheet and the Log_Sheet, well speaks for itsself
Initial state would all shapes grey except A, D and H, these seem to be the starting points so initially Dark Blue and all others should initially be grey (not-selectable)
If you click A then only B will become Blue and A grey following the lines (and the table , I rem=named this Admin_Sheet)
I added a column in Admin_Sheet for the three initial shapes, a macro should be written to set these shapes to blue and the others to grey.
I didn't do much yet but did give your sheets names and a little structure in hat sense, it's almost bedtime here so ...
Will see/read you answer tomorrow since you still have some hours left

Yes, that sounds great! I've made a couple of additions to the test sheet to flesh out some ideas...

You are correct in that A,D, & H are the starting points. Your description of these starting out Dark Blue and everything else initially grey (not-selectable) is right on.

Shape B should only become selectable once both A and D have been selected. I've added K in the reattached example to illustrate an OR feature which would make K selectable if either E or I were selected. Some shapes would also preclude others from being available. In the attached example, once G is selected, neither F or J would be able to be selected. The other feature I've added is that some shapes would be "selected" automatically-without user input, once other shapes are selected-added L in the example for this.

Eventually I would like to be able to "hide" unavailable shapes (and their connection points) as well so they would only appear once prerequisites are met, but that's a bit down the road I think.

Thanks so much for your help! Have a good night and please let me know if I can compensate you for your time-I always feel guilty taking advantage of everyone's help on this forum and am continually in awe of the knowledge that I gain here!

Hi, We're here to help and point you in a direction we think is the one, every programmer or coder has his/her experience and background
My approach:
- Give all the shapes a descriptive name that also refers to the action Shapes A through Z
- Connector followed by shate from -> shate to ie: ShapeA goes via ConnectorAB goes to ShapeB
- since you have Gropued Items then name the group according to the Shape: ShapeB has GroupB
- You have a dimond in this case with OR function so in the case of ShapeE:
ShapeE via ConnectorEor to DiamondEK via ConnectorEorK goes to ShapeK which has GroupK

VBA and coding is all about imagination, and your own creativity you have to tell it what to do respecting syntaxes; don't know the code then just record a macro for that specific action and see what it dis, then edit it to your needs

This text is also in the VBA module.
I'm not going to work it all out for you.
Compensation is not for here, we're helping, and sometimes (I do) we get carried away and develop an entire application.
We offer some code the OP can build on that and ask for help when he/she gest stuck
Now that I'm retired (71) I still code Excel interfaces for a (small) living and it's good for the brain gymnastics

Here's the file and throw your imagination, creativity at it What you need most is time (lots of it) is time and patience (troubleshooting), VBA just needs you to respect the syntax, the rest is just YOU telling it what to do.
Think of it like reading a book, line by line and translating the actions to code; don't always select items, just name them and do your thing.
If this is that then do the other thing els do something else but if not do whatever, etc ...

I did nothing with the on click as yet, it was just to show what you can do and how you can approach this.
With what you're saying, then I suggest you take someone in the arms and explain it all. You will have to give each linking line a descriptive name as well and the grouped forms hehind the shape, (like I did now)
This will take a lot op coding hours and thinking it out.
If the Shape's names are gong to be replaced by a six digit Key then I suggest Shape Names like Shapesixdigit and the Groupsixdigit and Connectorsixdigitfrom_sifdigitto etc.
Hop[e it makes sense.

Well, it's quite a task if you want to do it for more than that.
The lines and all that I haven't managed (and am not going to for now)
But the series you have here does a little of what you want.
It will require quite some more coding to make it work for the connectors and the grouped cells as well.
Right now it only works for the Shapes.
In the Admin_Sheet only the columns B, C, D and E are used now
In columns C, D and E you fill in the shape names that lead to the shape in column B
That way the processing will work.
The section in the original macro where you tested if gry then this if blue then that etc is skipped now. All is processed in the next macro in the module
When it's the last Shape, (hard coded in the macro with instr function the there shapes are as one string it checks if it's the selected shape then colors it green to indicate it's finished.
Play around with this ad throw your imagination and fantasy at it

This is the next step, got a simple way (I hope to get it doen)
This is it for starters, working out one or two more things and will explain what's required

Corrected and more read the textboxes in Admin_Sheet for an explanation

Ran into some minor issues and also added a textbox with some explanation which I have added here too:
How the shapes (all) are to be named
Shapes
- Shape will start with Shape followed by a unique combination A,B, C, AA, AB, ZZ etc, unlimited possibilities will be identified by the VBA code.
- The text IN the shape is to be added in the Column NEXT to corresponding Shape Name (Column L)
This list of Shape names will be updated the moment the Refresh Button is pressed as well as all the shape names on that sheet will be listen in Column O All Shapes
- Many of the shapes have a Group and this Group muts have the same ID combination as the Shape that covers it
ie: ShapeZZ will have a GroupZZ
Connectors
A conector will be named according to what it connects if it is directly from ShapeA to ShapeB then the Connector is to be named ConnectorAB

Diamonds
These have to be named according to the Connector going To it and the Connector Leaving it
In the case of the two Diamond shapes one comes from I and goes to K and it has the OR condition so the syntax will be applied to the Connectors and the Diamond as well
The complete picture starting with ShapeI gpoing to ShakeK
ShapeI - ConnectorIor - DiamondorIK - ConnectorIorK - ShapeK

If you take this 'naming convention' into account the macro code will not require editing to make it work.

With this in mind you create quite a big 'Flow Diagram'

In principle, clicking on a Green Shape will return it to Dark Blue and clicking on the previous Grey Shape will hide the next step and color the Grey one DarkBlue, this part does not work entirely well but it was fun to try to think of a way to do it.

I decided to give the file tomorrow's date and a new version number

Sent you a PM
Cheers
Hans

Corrected your file, take a look and see if it makes sense, also modified the code to include a Final shape.
See Admin Sheet column Final Shape
DONT group the group and the Shape it will then not work
DONT explicitly name a shape, make it A B xxx whatever; the actual text IN the shape you place in the column next to Shape name as explained.
Did not rename your file

Got it
Will take a look at it