j'ai créé une série de macros qui modifie le mode d'affichage des
modifications.
J'ai aussi créé une série correpsondantes de boutons que j'ai placés dans
une nouvelle barre de menu.
En ce moment, lorsque je clique sur un des boutons, la macro s'exécute et
modifie l'affichage. Cependant, le bouton sur lequel j'ai appuyé ne reste
pas enfoncé (encadré), pour montrer quel type d'affichage est activé.
Je voudrais que le bouton reste enfoncé jusuq'à ce que j'active un autre des
modes d'affichage, tout comme le bouton "Gras" reste enfoncé lorsque le
curseur est dans une zone où le texte est formatté en gras.
De plus, lorsque je pointe le curseur sur un de ces boutons (sans cliquer)
pendant 1 seconde, un petit encadré jaune apparait et affiche le nom de la
macro. Est-il possible de définir ce qui s'affiche, pour que word affiche
autre chose que le nom de la macro, qui n'est pas toujours explicite ?
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
Anacoluthe
Bonjour !
'Zed Rafi' nous a écrit ...
Je voudrais que le bouton reste enfoncé
Dans la macro lancée par le bouton vous devez placer le changement d'état du bouton
Dim MonBouton As CommandBarButton Set MonBouton = CommandBars("Ma barre").Controls(1) If MonBouton.State = msoButtonUp Then ' ici code quand on appuie sur le bouton MonBouton.State = msoButtonDown Else ' ici code quand on remonte le bouton MonBouton.State = msoButtonUp End If
De plus, lorsque je pointe le curseur sur un de ces boutons (sans cliquer) pendant 1 seconde, un petit encadré jaune apparait
C'est l'info-bulle du bouton ajoutons la modification de l'infobulle selon l'état du bouton :
Dim MonBouton As CommandBarButton Set MonBouton = CommandBars("Ma barre").Controls(1) If MonBouton.State = msoButtonUp Then ' ici code pour activer le truc MonBouton.State = msoButtonDown MonBouton.TooltipText = "Désactiver le truc" Else ' ici code pour désactiver désactiver le truc MonBouton.State = msoButtonUp MonBouton.TooltipText = "Activer le truc" End If
Fallait appuyer ?
Anacoluthe « Pourquoi appuyer plus fort sur les boutons de la télécommande si vous savez que les piles sont usées ? » - Stephen WRIGHT
Bonjour !
'Zed Rafi' nous a écrit ...
Je voudrais que le bouton reste enfoncé
Dans la macro lancée par le bouton vous devez placer le changement
d'état du bouton
Dim MonBouton As CommandBarButton
Set MonBouton = CommandBars("Ma barre").Controls(1)
If MonBouton.State = msoButtonUp Then
' ici code quand on appuie sur le bouton
MonBouton.State = msoButtonDown
Else
' ici code quand on remonte le bouton
MonBouton.State = msoButtonUp
End If
De plus, lorsque je pointe le curseur sur un de ces boutons (sans cliquer)
pendant 1 seconde, un petit encadré jaune apparait
C'est l'info-bulle du bouton
ajoutons la modification de l'infobulle selon l'état du bouton :
Dim MonBouton As CommandBarButton
Set MonBouton = CommandBars("Ma barre").Controls(1)
If MonBouton.State = msoButtonUp Then
' ici code pour activer le truc
MonBouton.State = msoButtonDown
MonBouton.TooltipText = "Désactiver le truc"
Else
' ici code pour désactiver désactiver le truc
MonBouton.State = msoButtonUp
MonBouton.TooltipText = "Activer le truc"
End If
Fallait appuyer ?
Anacoluthe
« Pourquoi appuyer plus fort sur les boutons de la télécommande
si vous savez que les piles sont usées ? »
- Stephen WRIGHT
Dans la macro lancée par le bouton vous devez placer le changement d'état du bouton
Dim MonBouton As CommandBarButton Set MonBouton = CommandBars("Ma barre").Controls(1) If MonBouton.State = msoButtonUp Then ' ici code quand on appuie sur le bouton MonBouton.State = msoButtonDown Else ' ici code quand on remonte le bouton MonBouton.State = msoButtonUp End If
De plus, lorsque je pointe le curseur sur un de ces boutons (sans cliquer) pendant 1 seconde, un petit encadré jaune apparait
C'est l'info-bulle du bouton ajoutons la modification de l'infobulle selon l'état du bouton :
Dim MonBouton As CommandBarButton Set MonBouton = CommandBars("Ma barre").Controls(1) If MonBouton.State = msoButtonUp Then ' ici code pour activer le truc MonBouton.State = msoButtonDown MonBouton.TooltipText = "Désactiver le truc" Else ' ici code pour désactiver désactiver le truc MonBouton.State = msoButtonUp MonBouton.TooltipText = "Activer le truc" End If
Fallait appuyer ?
Anacoluthe « Pourquoi appuyer plus fort sur les boutons de la télécommande si vous savez que les piles sont usées ? » - Stephen WRIGHT
