Document.Saved property (Visio)
Indicates whether a document has any unsaved changes. Read/write.
Syntax
expression.Saved
expression A variable that represents a Document object.
Return value
Boolean
Remarks
Use caution when setting the Saved property for a document to True. If you set the Saved property to True and a user, or another program, makes changes to the document before it is closed, those changes will be lost—Microsoft Visio does not provide a prompt to save the document.
A document that contains embedded or linked OLE objects may report itself as unsaved even if the document's Saved property is set to True.
Example
This Microsoft Visual Basic for Applications (VBA) macro shows how to use the Saved property to determine whether a document has any unsaved changes. It also shows how to set the Saved property. Before running this macro, change path to the location where you want to save the drawing, and change filename to the name you'd like to assign the file.
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
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.
피드백
https://aka.ms/ContentUserFeedback
출시 예정: 2024년 내내 콘텐츠에 대한 피드백 메커니즘으로 GitHub 문제를 단계적으로 폐지하고 이를 새로운 피드백 시스템으로 바꿀 예정입니다. 자세한 내용은 다음을 참조하세요.다음에 대한 사용자 의견 제출 및 보기