Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
m_baczewski
in reply to: kv5053545

Give it a try as I mentioned, at this point it should go through all the dimensions and center their positions.

Sub Main()
       
        If ThisDoc.Document.DocumentType <> DocumentTypeEnum.kDrawingDocumentObject Then Exit Sub

        Dim oDDoc As DrawingDocument = ThisDoc.Document 
        Dim oStMgr As DrawingStylesManager = oDDoc.StylesManager 
        Dim oDimStyles As DimensionStylesEnumerator = oStMgr.DimensionStyles   
        Dim oDimStyle As DimensionStyle = oDimStyles.Item("Default (ANSI)") 

        oDimStyle.ArrowheadType = ArrowheadTypeEnum.kBlankArrowheadType   
        oDimStyle.ArrowheadSize = 0.2286
        oDimStyle.ArrowheadHeight = 0.08 

        oDimStyle.Extension = 0.4572 
        oDimStyle.Gap = 0.000 
        oDimStyle.Spacing = 0.000  

        Dim oDrawDoc As DrawingDocument = ThisApplication.ActiveDocument 

        Dim oDStyle As DimensionStyle = oDrawDoc.StylesManager.ActiveStandardStyle.ActiveObjectDefaults.LinearDimensionStyle

        Dim sFontSize As String = oDStyle.TextStyle.FontSize

        Dim x As Double
        x = 0.25
        oDStyle.TextStyle.FontSize = x

        Dim oDimensions As DrawingDimensions
        oDimensions = oDDoc.ActiveSheet.DrawingDimensions

        Dim oDrawDim As DrawingDimension

        For Each oDrawDim In oDimensions
           If TypeOf oDrawDim Is LinearGeneralDimension
              Call oDrawDim.CenterText
           End If
        Next
End Sub