VBA Visio 2000 - Zoom sur une forme donnée

ChristopheLBP · 28/11/2007, 12h31

Bonjour,

Je souhaiterai effectuer un zoom sur une forme précise via du code VBA.
Pensez-vous que cela est possible ?

Merci par avance.

Christophe

ChristopheLBP · 28/11/2007, 17h00

J'ai trouvé, il suffit de sélectionner la forme sur laquelle nous voulons zoomer puis d'effectuer le zoom.
Le zoom s'effectuera automatiquement sur la forme sélectionnée.

Code :

Private Sub Selectionner_Click()
 
   ActiveWindow.Select ActivePage.Shapes(List_Rapport.Value), visDeselectAll + visSelect
   ActiveWindow.Zoom = 5
 
End Sub

ChristopheLBP · 29/11/2007, 09h41

Je viens de tester sur une version 2003, le zoom s'effectue pas sur la forme selectionnée mais le centre de la page active.

28/11/2007, 12h31	#1 (permalink)
ChristopheLBP Invité de passage Date d'inscription: octobre 2007 Messages: 9	VBA Visio 2000 - Zoom sur une forme donnée Bonjour, Je souhaiterai effectuer un zoom sur une forme précise via du code VBA. Pensez-vous que cela est possible ? Merci par avance. Christophe

28/11/2007, 17h00	#2 (permalink)
ChristopheLBP Invité de passage Date d'inscription: octobre 2007 Messages: 9	J'ai trouvé, il suffit de sélectionner la forme sur laquelle nous voulons zoomer puis d'effectuer le zoom. Le zoom s'effectuera automatiquement sur la forme sélectionnée. Code : Private Sub Selectionner_Click() ActiveWindow.Select ActivePage.Shapes(List_Rapport.Value), visDeselectAll + visSelect ActiveWindow.Zoom = 5 End Sub

29/11/2007, 09h41	#3 (permalink)
ChristopheLBP Invité de passage Date d'inscription: octobre 2007 Messages: 9	Je viens de tester sur une version 2003, le zoom s'effectue pas sur la forme selectionnée mais le centre de la page active.

		Forum des développeurs > Hardware, Systèmes et Logiciels > Microsoft Office > Visio
VBA Visio 2000 - Zoom sur une forme donnée

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