Change linespacing for textnodes using VBA

Hi,

the property .LineSpacing is readonly and can be applied to Textnodes.
One approach could be to use the PropertyHandler class.
This code example may help:

Sub linespaceTest()
Dim ee As elementEnumerator
Dim oPh As PropertyHandler
Set ee = ActiveModelReference.GraphicalElementCache.Scan
Do While ee.MoveNext
    If ee.Current.IsTextNodeElement Then
        Set oPh = CreatePropertyHandler(ee.Current)
'        Dim s() As String
'        s = oPh.GetAccessStrings
        If oPh.SelectByAccessString("LineSpacing") Then
            oPh.setValue (0.5)
        End If
    End If
Loop
End Sub

The two lines commented out are helpful to know which accessstrings are available for each element.

I hope this helps?

Best regards,
Artur

To change the line spacing for TextNodes in VBA, you can use the Bentley MicroStation API to access and change the required properties.

Thanks you, it's usefully !!

When I set:  Set oPh = CreatePropertyHandler(ee.Current)

the Object oPh was not have any instance

Thinh Dai hiep said:

the Object oPh was not have any instance

Can you check and share details what element (type, accessibility...) the ee.Current is?

When CreatePropertyHandler returns Nothing, usually the reason is that the element is not graphical (visible and editable by a user).

Regards,

  Jan