SaveAsDefault Example

AEC Auto

SaveAsDefault Example

Sub Example_SaveAsDefault()
    
    ' This example sets the TextHeight setting to 0.25
    ' and saves it as the default.
    Dim dbPref As AecArchBaseDatabasePreferences
    Set dbPref = AecArchBaseApplication.ActiveDocument.preferences
    
    dbPref.TextHeight = 0.25
    dbPref.SaveAsDefault
    
    MsgBox "The new default value for TextHeight is: " & dbPref.TextHeight, _
        vbInformation, "SaveAsDefault Example"
    
End Sub