Sous Excel, un "centrer le texte" d'un cellules entraine l'encadrement du
bouton de centrage.
Cette encadrement est du style booléen (je crois).
Apres plusieurs heures de recherche dans l'aide VBA Excel, impossible de
trouvé comment programmer l'activation de cette encadrement d'un bouton
personnalisé.
Quelle est la méthode ou propriété pour appliqué cette effet de bouton
"enfoncé" ?
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
GOWAP
Sub BtPush() ' information : http://msdn.microsoft.com/library/default.asp?url=/library/en-us/off2000/html/ofhowtoolbars.asp
Select Case CommandBars.Item("perso").Controls(1).State Case msoButtonMixed: CommandBars.Item("EDI").Controls(1).State = msoButtonDown Case msoButtonDown: CommandBars.Item("EDI").Controls(1).State = msoButtonUp Case msoButtonUp: CommandBars.Item("EDI").Controls(1).State = msoButtonMixed End Select
End Sub
Sub BtPush()
' information :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/off2000/html/ofhowtoolbars.asp
Select Case CommandBars.Item("perso").Controls(1).State
Case msoButtonMixed:
CommandBars.Item("EDI").Controls(1).State = msoButtonDown
Case msoButtonDown:
CommandBars.Item("EDI").Controls(1).State = msoButtonUp
Case msoButtonUp:
CommandBars.Item("EDI").Controls(1).State = msoButtonMixed
End Select
Sub BtPush() ' information : http://msdn.microsoft.com/library/default.asp?url=/library/en-us/off2000/html/ofhowtoolbars.asp
Select Case CommandBars.Item("perso").Controls(1).State Case msoButtonMixed: CommandBars.Item("EDI").Controls(1).State = msoButtonDown Case msoButtonDown: CommandBars.Item("EDI").Controls(1).State = msoButtonUp Case msoButtonUp: CommandBars.Item("EDI").Controls(1).State = msoButtonMixed End Select
