Свойство Document.Saved (Visio)

Статья
04/07/2023

Указывает, содержит ли документ несохраненные изменения. Для чтения и записи.

Синтаксис

expression. Сохранено

Выражение Переменная, представляющая объект Document .

Возвращаемое значение

Boolean

Примечания

Будьте внимательны при установке для свойства Сохраненные для документа значения True. Если для свойства Сохранено задано значение True , а пользователь или другая программа вносит изменения в документ перед его закрытием, эти изменения будут потеряны— Microsoft Visio не предоставит запрос на сохранение документа.

Документ, содержащий внедренные или связанные объекты OLE, может сообщать о себе как несохраненный, даже если свойству Сохранено документа присвоено значение True.

Пример

В этом макросе Microsoft Visual Basic для приложений (VBA) показано, как использовать свойство Сохранено, чтобы определить, содержит ли документ несохраненные изменения. Здесь также показано, как задать свойство Сохранено . Перед выполнением этого макроса измените путь к расположению, в котором требуется сохранить документ, и измените имя файла на имя, которое вы хотите назначить файлу.

 
Public Sub Saved_Example() 
 
 Dim vsoDocument1 As Visio.Document 
 Dim vsoDocument2 As Visio.Document 
 Dim vsoPage As Visio.Page 
 Dim vsoShape As Visio.Shape 
 
 Set vsoPage = ThisDocument.Pages(1) 
 Set vsoShape = vsoPage.DrawOval(2.5, 7, 3.5, 9) 
 
 'Use the SaveAs method to save the document for the first time. 
 ThisDocument.SaveAs "path\filename .vsd" 
 
 'Use the Saved property to verify that the document was saved. 
 'Saved returns True (-1). 
 Debug.Print ThisDocument.Saved 
 
 'Force a change to the document by adding a shape. 
 Set vsoShape = vsoPage.DrawOval(4, 7, 5, 9) 
 
 'Use the Saved property to verify that the document changed 
 'since the last time is was saved. 
 'Saved returns False (0) 
 Debug.Print ThisDocument.Saved 
 
 'Use the Save method to save any new changes. 
 ThisDocument.Save 
 
 'Use the Saved property again to verify that 
 'the document was saved. Saved returns True (-1). 
 Debug.Print ThisDocument.Saved 
 
 'The Saved property can also be set. For example, change 
 'the document again so that the Saved property becomes False. 
 Set vsoShape = vsoPage.DrawRectangle(1, 1, 7, 7) 
 
 'Set the Saved property to True. 
 'Setting the Saved property to True does not save the document. 
 ThisDocument.Saved = True 
 
 'Close the document and then reopen it. Note that 
 'the rectangle was not saved. 
 Set vsoDocument1 = ThisDocument 
 vsoDocument1.Close 
 Set vsoDocument1 = Documents.Open("path\filename .vsd") 
 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через