Document.Saved-Eigenschaft (Visio)

Artikel
04/07/2023

Gibt an, ob ein Dokument über nicht gespeicherte Änderungen verfügt. Lese-/Schreibzugriff.

Syntax

Ausdruck. Gespeichert

Ausdruck Eine Variable, die ein Document-Objekt darstellt.

Rückgabewert

Boolesch

Bemerkungen

Seien Sie vorsichtig, wenn Sie die Saved-Eigenschaft für ein Dokument auf True festlegen. Wenn Sie die Saved-Eigenschaft auf True festlegen und ein Benutzer oder ein anderes Programm Änderungen am Dokument vornimmt, bevor es geschlossen wird, gehen diese Änderungen verloren– Microsoft Visio gibt keine Aufforderung zum Speichern des Dokuments an.

Ein Dokument, das eingebettete oder verknüpfte OLE-Objekte enthält, weist unter Umständen darauf hin, dass das Dokument nicht gespeicherte Änderungen enthält, obwohl die Saved-Eigenschaft des Dokuments auf True festgelegt ist.

Beispiel

Das folgende VBA-Makro (Microsoft Visual Basic für Applikationen) zeigt, wie die Saved-Eigenschaft verwendet werden kann, um festzulegen, ob ein Dokument nicht gespeicherte Änderungen enthält. Es zeigt auch, wie die Saved-Eigenschaft festzulegen ist. Ändern Sie vor dem Speichern des Makros die Angabe für path, um den Pfad des Speicherorts anzugeben, unter dem Sie die Zeichnung speichern möchten und ändern Sie die Angabe für filename in den Namen, den Sie der Datei zuweisen möchten.

 
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 und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über