Bonjour à tous.
J'ai besoin de changer plusieurs fois la valeur du zoom quand je fais un document (pour me permettre
de placer précisément des dessins géométriques) et j'aimerais si possible personnaliser le zoom du
menu affichage. J'aimerais en fait avoir 2 boutons dans la barre d'outils. Un qui permette, par
simple clic, de passer le zoom à 160 % et l'autre de le passer à 350 %. J'ai déjà personnalisé ma
barre d'outils pour plein de choses mais la je n'arrive pas. La seule chose que j'arrive à faire
c'est affiché ce petit menu déroulant et encore je n'arrive pas à mettre autre chose que les valeurs
par défauts.
Merci d'avance pour votre aide et à bientôt.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Circé
Bonjour,
Effectivement si tu veux passer à des valeurs de zoom qui ne sont pas prédéfinies, tu vas devoir créer une petite macro du genre :
Sub zoom()
If ActiveWindow.View.Zoom.Percentage = 160 Then ActiveWindow.View.Zoom.Percentage = 350 Else: ActiveWindow.View.Zoom.Percentage = 160 End If
End Sub
Ensuite, tu associes la macro à un bouton sur la barre d'outils.
Circé http://faqword.free.fr
maf wrote: || Bonjour à tous. || J'ai besoin de changer plusieurs fois la valeur du zoom quand je || fais un document (pour me permettre de placer précisément des || dessins géométriques) et j'aimerais si possible personnaliser le || zoom du menu affichage. J'aimerais en fait avoir 2 boutons dans la || barre d'outils. Un qui permette, par simple clic, de passer le zoom || à 160 % et l'autre de le passer à 350 %. J'ai déjà personnalisé ma || barre d'outils pour plein de choses mais la je n'arrive pas. La || seule chose que j'arrive à faire c'est affiché ce petit menu || déroulant et encore je n'arrive pas à mettre autre chose que les || valeurs par défauts. || Merci d'avance pour votre aide et à bientôt.
Bonjour,
Effectivement si tu veux passer à des valeurs de zoom qui ne sont pas
prédéfinies, tu vas devoir créer une petite macro du genre :
Sub zoom()
If ActiveWindow.View.Zoom.Percentage = 160 Then
ActiveWindow.View.Zoom.Percentage = 350
Else: ActiveWindow.View.Zoom.Percentage = 160
End If
End Sub
Ensuite, tu associes la macro à un bouton sur la barre d'outils.
Circé
http://faqword.free.fr
maf wrote:
|| Bonjour à tous.
|| J'ai besoin de changer plusieurs fois la valeur du zoom quand je
|| fais un document (pour me permettre de placer précisément des
|| dessins géométriques) et j'aimerais si possible personnaliser le
|| zoom du menu affichage. J'aimerais en fait avoir 2 boutons dans la
|| barre d'outils. Un qui permette, par simple clic, de passer le zoom
|| à 160 % et l'autre de le passer à 350 %. J'ai déjà personnalisé ma
|| barre d'outils pour plein de choses mais la je n'arrive pas. La
|| seule chose que j'arrive à faire c'est affiché ce petit menu
|| déroulant et encore je n'arrive pas à mettre autre chose que les
|| valeurs par défauts.
|| Merci d'avance pour votre aide et à bientôt.
Effectivement si tu veux passer à des valeurs de zoom qui ne sont pas prédéfinies, tu vas devoir créer une petite macro du genre :
Sub zoom()
If ActiveWindow.View.Zoom.Percentage = 160 Then ActiveWindow.View.Zoom.Percentage = 350 Else: ActiveWindow.View.Zoom.Percentage = 160 End If
End Sub
Ensuite, tu associes la macro à un bouton sur la barre d'outils.
Circé http://faqword.free.fr
maf wrote: || Bonjour à tous. || J'ai besoin de changer plusieurs fois la valeur du zoom quand je || fais un document (pour me permettre de placer précisément des || dessins géométriques) et j'aimerais si possible personnaliser le || zoom du menu affichage. J'aimerais en fait avoir 2 boutons dans la || barre d'outils. Un qui permette, par simple clic, de passer le zoom || à 160 % et l'autre de le passer à 350 %. J'ai déjà personnalisé ma || barre d'outils pour plein de choses mais la je n'arrive pas. La || seule chose que j'arrive à faire c'est affiché ce petit menu || déroulant et encore je n'arrive pas à mettre autre chose que les || valeurs par défauts. || Merci d'avance pour votre aide et à bientôt.
maf
| Bonjour, | | Effectivement si tu veux passer à des valeurs de zoom qui ne sont pas | prédéfinies, tu vas devoir créer une petite macro du genre : | | Sub zoom() | | If ActiveWindow.View.Zoom.Percentage = 160 Then | ActiveWindow.View.Zoom.Percentage = 350 | Else: ActiveWindow.View.Zoom.Percentage = 160 | End If | | End Sub | | Ensuite, tu associes la macro à un bouton sur la barre d'outils. | | Circé | http://faqword.free.fr
Un très grand merci, cela fonctionne parfaitement... Vraiment tu vas me faciliter la vie... Merci encore.
| Bonjour,
|
| Effectivement si tu veux passer à des valeurs de zoom qui ne sont pas
| prédéfinies, tu vas devoir créer une petite macro du genre :
|
| Sub zoom()
|
| If ActiveWindow.View.Zoom.Percentage = 160 Then
| ActiveWindow.View.Zoom.Percentage = 350
| Else: ActiveWindow.View.Zoom.Percentage = 160
| End If
|
| End Sub
|
| Ensuite, tu associes la macro à un bouton sur la barre d'outils.
|
| Circé
| http://faqword.free.fr
Un très grand merci, cela fonctionne parfaitement... Vraiment tu vas me faciliter la vie... Merci
encore.
| Bonjour, | | Effectivement si tu veux passer à des valeurs de zoom qui ne sont pas | prédéfinies, tu vas devoir créer une petite macro du genre : | | Sub zoom() | | If ActiveWindow.View.Zoom.Percentage = 160 Then | ActiveWindow.View.Zoom.Percentage = 350 | Else: ActiveWindow.View.Zoom.Percentage = 160 | End If | | End Sub | | Ensuite, tu associes la macro à un bouton sur la barre d'outils. | | Circé | http://faqword.free.fr
Un très grand merci, cela fonctionne parfaitement... Vraiment tu vas me faciliter la vie... Merci encore.
