Sub Example_TextFrameDisplay()
    'Этот пример возвращает текущую установку TextFrameDisplay. Затем изменяет значение
    ' и наконец сбрасывает значение назад к оригинальной установке.
    
    Dim currTextFrameDisplay As Boolean
    
    'Получите текущее значение TextFrameDisplay
    currTextFrameDisplay = ThisDrawing.preferences.TextFrameDisplay
    MsgBox "Текущее значение для TextFrameDisplay " & preferences.TextFrameDisplay, vbInformation, "TextFrameDisplay Пример"
    
    'Измените значение для TextFrameDisplay
    ThisDrawing.preferences.TextFrameDisplay = Not (currTextFrameDisplay)
    MsgBox "Новое значение для TextFrameDisplay " & preferences.TextFrameDisplay, vbInformation, "TextFrameDisplay Пример"
    
    'Сбросьте TextFrameDisplay к его оригинальному значению
    ThisDrawing.preferences.TextFrameDisplay = currTextFrameDisplay
    MsgBox "Значение TextFrameDisplay сброшено к " & preferences.TextFrameDisplay, vbInformation, "TextFrameDisplay Пример"
End Sub