OVH Cloud OVH Cloud

Macro de zoom

2 réponses
Avatar
Jean-Paul V
Bonjour à tous

J’ai une macro qui fait un zoom à l’ouverture afin que tous les utilisateurs
voient les zones utiles quels que soient les config d’écran.
Ceci grâce à :
Application.Goto Reference:="VERTICAL"
ActiveWindow.Zoom = True
Malheureusement suivant le nbre de lignes d’icônes ce n’est pas toujours
satisfaisant.
Comment écrire une macro qui à partir du zoom actuel (comment avoir ce
paramètre ) augmente le zoom de 5% à chaque fois que l’on clique sur un
dessin loupe.


@+
Jean-Paul

2 réponses

Avatar
Pierre Fauconnier
Salut

ActiveWindow.Zoom permet de connaître ou de modifier le facteur de zoom

sub Button_Click()
activewindow.zoom¬tivewindow.zoom+5
end sub

Ok,
--
Pierre Fauconnier () (Skype:
pierre_fauconnier)
"Les choses qui n'ont rien en commun ont en commun qu'elles n'ont rien en
commun"
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"Jean-Paul V" a écrit dans le message
de news:
Bonjour à tous

J'ai une macro qui fait un zoom à l'ouverture afin que tous les
utilisateurs
voient les zones utiles quels que soient les config d'écran.
Ceci grâce à :
Application.Goto Reference:="VERTICAL"
ActiveWindow.Zoom = True
Malheureusement suivant le nbre de lignes d'icônes ce n'est pas toujours
satisfaisant.
Comment écrire une macro qui à partir du zoom actuel (comment avoir ce
paramètre ) augmente le zoom de 5% à chaque fois que l'on clique sur un
dessin loupe.


@+
Jean-Paul



Avatar
Jean-Paul V
Merci

Je n'aurais pas imaginé que c'était si simple !
Bonne soirée


Salut

ActiveWindow.Zoom permet de connaître ou de modifier le facteur de zoom

sub Button_Click()
activewindow.zoom¬tivewindow.zoom+5
end sub

Ok,
--
Pierre Fauconnier () (Skype:
pierre_fauconnier)
"Les choses qui n'ont rien en commun ont en commun qu'elles n'ont rien en
commun"
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"Jean-Paul V" a écrit dans le message
de news:
Bonjour à tous

J'ai une macro qui fait un zoom à l'ouverture afin que tous les
utilisateurs
voient les zones utiles quels que soient les config d'écran.
Ceci grâce à :
Application.Goto Reference:="VERTICAL"
ActiveWindow.Zoom = True
Malheureusement suivant le nbre de lignes d'icônes ce n'est pas toujours
satisfaisant.
Comment écrire une macro qui à partir du zoom actuel (comment avoir ce
paramètre ) augmente le zoom de 5% à chaque fois que l'on clique sur un
dessin loupe.


@+
Jean-Paul