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