Sub Example_Saved()
    ' Этот пример выясняет, изменился ли текущий рисунок.
    
    If Not ThisDrawing.Saved Then
        MsgBox "Рисунок изменился! Используйте метод Save или SaveAs, чтобы сохранить рисунок.", , "Saved Пример"
    Else
        MsgBox "Рисунок не изменился с последнего сохрания.", , "Saved Пример"
    End If
    
End Sub