I try to change the TextStyle.Font in VBA for Inventor 7 SP1 but without any good result. Font chould according to the Object Browser be read-only but that must be wrong. How else could you change the font for the whole drawing.
My code looks like as follows:
Dim oTextStyles As TextStyles
Dim oTextStyle As TextStyle
Set oTextStyles = oDrawingDoc.TextStyles
For NumberOfTextStyles = 1 To oTextStyles.Count
Set oTextStyle = oTextStyles.Item(NumberOfTextStyles)
If oTextStyle.Default = False Then
Set oTextStyle.Font = "ISOCPEUR"
End If
Next NumberOfTextStyles
Could anyone help me?