Leader Text Alignment

[philipp.rockenschaubDDSYJ]

Hi

Is there a way to edit the Leader Text Alignment and the Leader Text Orientation with VBA?

I cannot seem to find the correct properties in the DimensionStyle.

[dalton98]

I couldn't find it either. It looks like you already have two different styles you use. You could just toggle between those two if they have the correct leader style.

Dim oDDoc As DrawingDocument = ThisDoc.Document
Dim style1 As DimensionStyle = oDDoc.StylesManager.DimensionStyles(1)
Dim style2 As DimensionStyle = oDDoc.StylesManager.DimensionStyles(2)

Dim lno As LeaderNote = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kDrawingNoteFilter, "Select Note")
'Dim lno As LeaderNote = oDDoc.ActiveSheet.DrawingNotes.Item(1)
lno.DimensionStyle = style2

[philipp.rockenschaubDDSYJ]

I know how to set the style.

Unfortunately they also don't have the correct settings and I cannot edit the template to add one with the correct settings.