VBA Visio 2000 - Activation de page

ChristopheLBP · 14/11/2007, 10h00

Bonjour,

Je souhaite activer la page de mon schéma Visio après génération automatique du gabarit.

Code :

 
Public Sub OuvrirGabarit()
 
            TmpFile = Gabarit.ChargeBLOB()
            Set stnObj = Documents.Open(TmpFile)
End Sub

J'ai essayé de faire

Code :

SendKeys "^" & "{TAB}"

juste après

Code :

Set stnObj = Documents.Open(TmpFile)

mais sans succès.
J'ai également voulu essayé les méthodes

Code :

ActiveWindow.Select

et

Code :

ActiveWindow.Activate

mais celle-ci sont au shape et non au page.

Je vous remercie de bien vouloir m'aider.

Cordialement,
Christophe

ChristopheLBP · 14/11/2007, 12h28

J'ai trouvé la réponse à ma question il suffit de mettre :

Code :

ThisDocument.Application.Windows(ThisDocument.Index).Activate

après

Code :

Set stnObj = Documents.Open(TmpFile)

14/11/2007, 10h00	#1 (permalink)
ChristopheLBP Invité de passage Date d'inscription: octobre 2007 Messages: 9	VBA Visio 2000 - Activation de page Bonjour, Je souhaite activer la page de mon schéma Visio après génération automatique du gabarit. Code : Public Sub OuvrirGabarit() TmpFile = Gabarit.ChargeBLOB() Set stnObj = Documents.Open(TmpFile) End Sub J'ai essayé de faire Code : SendKeys "^" & "{TAB}" juste après Code : Set stnObj = Documents.Open(TmpFile) mais sans succès. J'ai également voulu essayé les méthodes Code : ActiveWindow.Select et Code : ActiveWindow.Activate mais celle-ci sont au shape et non au page. Je vous remercie de bien vouloir m'aider. Cordialement, Christophe

14/11/2007, 12h28	#2 (permalink)
ChristopheLBP Invité de passage Date d'inscription: octobre 2007 Messages: 9	J'ai trouvé la réponse à ma question il suffit de mettre : Code : ThisDocument.Application.Windows(ThisDocument.Index).Activate après Code : Set stnObj = Documents.Open(TmpFile)

		Forum des développeurs > Hardware, Systèmes et Logiciels > Microsoft Office > Visio
VBA Visio 2000 - Activation de page

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email