Visio VBA - customized code to align shapes does not update connectors before exporting as a photo

Question

I am trying to write a code in Visio VBA to 1. loop through shapes on a page, 2. for each shape find what shapes are connected to it, 3. gather the connected shapes in a line to