Updating existing connectors that have connector text off-center

[UGABulldog80]

Hi -

I inherited a lot of process flows that were created using a theme and the Connector Variant Ion, and all of the connector text is off center (e.g. for straight lines the yellow text anchor is slightly below the actual connector). I was wondering if there was a way to fix all of them at once by correcting a Master and cascading it down, or some other method.  I've tried looking at the Master connector ShapeSheet values but I'm a novice when it comes to understanding how Themes/Variants work and I can only assume that the Variant is overriding the master connector.

I've also tried switching to the Whisp Variant but that only works on correcting the NEW connectors that I add and not the old ones. I'm sure it's something really simple but I can't figure it out for the life of me.

Any help would be appreciated!

Paul

[Thomas Winkel]

I guess you have to do that in VBA:

Code Select Expand


Sub CenterText()
  Dim aPage As Page
  Dim aShape As Shape
  For Each aPage In Application.ActiveDocument.Pages
    For Each aShape In aPage.Shapes
      If aShape.Style = "Connector" Then
        aShape.Cells("Controls.TextPosition.X").Formula = "Width*0"
        aShape.Cells("Controls.TextPosition.Y").Formula = "Height*0.5"
      End If
    Next
  Next
End Sub