Donna est en charge de préparer un document qui sera utilisé dans toute son entreprise. Elle aimerait que le document, une fois ouvert, «minimise» le ruban en haut de l’écran puis, lorsqu’il est fermé, ramène le ruban à son état de «pré-ouverture». Cela serait fait pour fournir la zone d’écran maximale pour le document. Donna pense que cela prendra une macro pour accomplir, mais elle ne sait pas quelles commandes utiliser pour accomplir la tâche.

Il y a une pénurie incroyable d’informations disponibles sur l’utilisation du ruban dans VBA. En fait, la seule méthode que nous avons pu localiser qui minimisera le ruban est la suivante:

ActiveWindow.ToggleRibbon

Cette méthode revient à appuyer sur Ctrl + F1. Il fait basculer le ruban, le faisant passer de maximisé à minimisé, et vice-versa. Ce n’est bien sûr pas ce que Donna veut faire; elle veut s’assurer qu’elle est minimisée. En utilisant la méthode ToggleRibbon, vous pouvez « fudge » un moyen de déterminer si le ruban est réduit ou non. Considérez les exemples de macros suivants.

Dim w As Variant Dim h1 As Long Dim h2 As Long Dim StartedWithRibbon As Boolean

Private Sub Document_Open()

Set w = ActiveWindow     h1 = w.UsableHeight     w.ToggleRibbon     h2 = w.UsableHeight     If h1 < h2 Then         StartedWithRibbon = False     Else         StartedWithRibbon = True         w.ToggleRibbon     End If End Sub
Private Sub Document_Close()

Set w = ActiveWindow     h1 = w.UsableHeight     w.ToggleRibbon     h2 = w.UsableHeight     If h2 < h1 Then         If StartedWithRibbon Then w.ToggleRibbon     Else         If Not StartedWithRibbon Then w.ToggleRibbon     End If End Sub

Il y a en fait deux macros ici, l’une déclenchée automatiquement lors de l’ouverture d’un document et l’autre déclenchée lors de sa fermeture. Les macros vérifient la hauteur de la fenêtre active et la stockent dans la variable h1. Il fait ensuite basculer le ruban et vérifie à nouveau la hauteur de la fenêtre active, en la stockant dans h2. En comparant les deux valeurs, vous pouvez déterminer si le ruban est réduit ou non, puis agir en conséquence.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (8515) s’applique à Microsoft Word 2007, 2010, 2013, 2016, 2019 et Word dans Office 365.