Hello all,
I am trying to eliminate jogs of connector that has occurred in slides. I tried following approach but this is not helping in anyway. Please help
Problem illustration:
If the rectangles are moved, then the connectors attached to that is effected. The connector ( arrow head elbow connector) has a bend or is inclined, I am trying to fix this so that process chart looks neat and oriented. I would like to know the functionality/method to decrease the size/shrink the connector and run macros without any manual 'selection' of shapes/objects. The macro itself should identify the place where connectors are disoriented and fix them. something like this, the connector that is pointed with red arrow is the connector to be fixed and blue arrow is expected result.
Code I tried: To do this for all connector you can just loop all the connectors and check or adjust the Y positions. Which should move the left end to the same as the right end
Sub SetConnectors()
Dim osld As Slide, oshp As Shape
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Type = msoConnectorStraight Then
oshp.BeginY = oshp.EndY
End If
Next oshp
Next osld
End Sub