@Croc: Not true. Grouping does not fix this problem.
@All:
This connector re-routing thing has been a long time nuisance.
There are two things that will minimize / eliminate the problem. Unfortunately, there's no global setting, and is on a per connector basis. It can also involve all shapes that "participate" in the rotating scenario. These steps include:
1) Each connector must have its routing behavior set to
As Needed. Developer tab>Shape Design>Behavior>Connector tab>Reroute cell.
2) Connectors must be glued to shape via literal connection points. "Walking" glue does not elicit desired behavior.
I've attached a sample drawing to show. The connectors are set to "freely" reroute. There are 3 macros which can be run to change the behavior. The main routine is RunRcsv. It calls a 2nd sub that literally iterates thru every shape on the page, including subshapes of groups. As this 2nd macro runs, it calls a 3rd macro that does the actual changes. Thus, other or additional macros can be run to do other things. Presently, just the one which changes the connector re-route property to "as needed" for EVERY connector on the page.
Here is the code:
Sub RunRcsv()
' This is the initiating macro, gets the page shape collection
' and calls ShapesColl2 recursive subroutine
' RcsvSrch calls sub to do desired changes
RcsvSrch ActivePage.Shapes
End Sub
Private Sub RcsvSrch(ByVal shps As Shapes)
Dim vShp As Shape
For Each vShp In shps
If vShp.Shapes.Count <> 0 Then RcsvSrch vShp.Shapes
Call CnctrProp(vShp)
Next vShp
End Sub
Private Sub CnctrProp(visShp As Shape)
Set vShp = visShp
vShp.CellsSRC(visSectionObject, visRowShapeLayout, visSLOConFixedCode).FormulaU = "1"
End Sub