VBA Visio 2000 - Zoom sur une forme donnée [FAQ] [Résolu]

[ChristopheLBP]

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]

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 :

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

[ChristopheLBP]

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.