Bonjour,
Je développe une appli sous Visio 2000 qui permettra de schématiser les composants réseau (Websphere, port ethernet,etc...).
Cet appli gèrera plusieurs schémas dans un seul document sous une seule page.
Je souhaitais appeler la BeforeDocumentClose pour vider la page du schéma générer, fermer les gabarits chargés et sauvegarder le document, afin qu'à la prochaine ouverture du document, la page soit vierge de tout schéma.
Mais cette fonction (BeforeDocumentClose) s'exécute pas vraiment avant la fermeture mais pendant la fermeture (d'après mes test).
Mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Private Sub Document_BeforeDocumentClose(ByVal doc As IVDocument) ThisDocument.VideDocument ThisDocument.Raz_Gabari ThisDocument.Save End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Public Sub VideDocument() Dim ShpObj As Visio.Shape ActiveWindow.SelectAll For Each ShpObj In Visio.ActiveWindow.Selection Call Init.Verrou(ShpObj, 0) ShpObj.Delete Next ShpObj End SubQuelqu'un pourrait-il m'aider à trouver pourquoi cela ne fonctionne pas ou passer au delà de cette erreur ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Dim Gabari As Collection Public Sub Raz_Gabari() Dim StnObj As Visio.Document If Gabari.Count <> 0 Then For Each Element In Gabari If Element <> " " Then Set StnObj = Documents.Open(Element) StnObj.Close End If Next Element End If End Sub
Merci par avance.
Christophe
Partager