Wenn mit VBA ein neues Textelement generiert wird, ist es oftmals notwendig dabei Eigenschaften zu ändern, u.a. auch den Textfont.
Dabei kann es passieren, dass diese Änderung nicht vorgenommen wird, beispielweise folgende Sequenz wird nicht ausgeführt:
Sub TextFontNichtGeaendert() Dim tEle As TextElement Dim oFont As Font Set tEle = CreateTextElement1(Nothing, "hello", Point3dZero, Matrix3dIdentity) Set oFont = ActiveDesignFile.Fonts("Verdana") Set tEle.TextStyle.Font = ActiveDesignFile.Fonts("Verdana") ActiveModelReference.AddElement tEleEnd Sub
Wenn man jedoch den neuen Textfont zunächst einem Objekt des Typs TextFont zuweist, dann klappt es, so wie beispielsweise in dieser Subroutine:
Sub textfontchange() Dim tEle As TextElement Dim oFont As Font Set tEle = CreateTextElement1(Nothing, "hello", Point3dZero, Matrix3dIdentity) Set oFont = ActiveDesignFile.Fonts("Verdana") Set tEle.TextStyle.Font = oFont ActiveModelReference.AddElement tEle End Sub