Creating a WHILE Loop in Visio ShapeSheet

Question

I'm aware that this can be easily done using VBA, but I'd like a macroless solution if possible.

I have 2 User rows in a Shape's ShapeSheet: User.Count and User.Loop. User.Count will simply store a number, and the While loop will be performed by User.Loop using the following basic conditional:

User.Loop = IF(User.Count < 1000, SETF(GETREF(User.Count), User.Count + 1), "Loop complete!")  + DEPENDSON(User.Count)

This executes to User.Count = 41 (these pulses of 41 are consistent). Is performing this type of loop possible?

This limitation is designed to prevent circular reference! What purpose do you need the loop simulation for ? — Surrogate, Jun 02 '23 at 07:30
@Surrogate I make interactive drawings for clients and wanted to do some basic animations, so the WHILE loop would be incrementally expanding `Shape!Width` to "open" a menu. — Vince, Jun 03 '23 at 14:10
41 is the limit because if the answer ever becomes 42 then that is the end of Life, The Universe and Everything! — Paul Herber, Jun 03 '23 at 15:08
Have you tried changing the loop limit to 40 and the increment to 0.05 to give you 800 pulses? — Paul Herber, Jun 03 '23 at 19:56

score 1 · Accepted Answer · answered Jun 03 '23 at 20:56

because if the answer ever becomes 42 then that is the end of Life, The Universe and Everything!

Paul you are right ! :)

changing the loop limit to 40 and

Sad, but this trick dont works…

My experiment results.

My example file
My loop can't make it to the 1000 mark. It has to stop at 80. You can continue the loop through the context menu Go to 1000 limit.

Creating a WHILE Loop in Visio ShapeSheet

1 Answers1