Propriété Document.Saved (Visio)

Article
04/07/2023

Indique si un document comporte des modifications non enregistrées. Lecture-écriture.

Syntaxe

expression. Sauvé

Expression Variable qui représente un objet Document .

Valeur renvoyée

Booléen

Remarques

Soyez prudent lorsque vous affectez la valeur True à la propriété Saved d’un document. Si vous définissez la propriété Saved sur True et qu’un utilisateur, ou un autre programme, apporte des modifications au document avant sa fermeture, ces modifications seront perdues . Microsoft Visio ne fournit pas d’invite pour enregistrer le document.

Un document qui contient des objets OLE liés ou incorporés peut se déclarer non enregistré même si la propriété Saved du document a la valeur True.

Exemple

Cette macro Microsoft Visual Basic pour Applications (VBA) indique comment utiliser la propriété Saved pour déterminer si un document dispose de modifications non enregistrées. Elle indique également comment définir la propriété Saved. Avant d'exécuter cette macro, remplacez path par l'emplacement où enregistrer le dessin et remplacez filename par le nom que vous souhaitez attribuer au fichier.

 
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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via