Afficher tous les boutons d'une barre d'outils

[drone]

Bonjour,
je crée via VBA une barre d'outils à l'ouverture d'un fichier. Sur mon poste, tous les boutons s'affichent alors que sur des postes avec une résolution plus petite, certains boutons sont masqués et il faut aller au bout de la barre d'outil et cliquer sur la flèche pour pouvoir y accéder.
Y a-t-il une solution pour forcer l'affichage de tous les boutons ?
Par avance merci.

 

[Guest]

Re : Afficher tous les boutons d'une barre d'outils

bonjour,

A tester:
La fonction renvoie la largeur totale de tous les contrôle de la barre de commande qui lui est passée en paramètre

Function GetLargeurCB(CB As CommandBar) As Long
    Dim ctl As CommandBarControl
    Dim w As Single
    For Each ctl In CB.Controls
        w = w + ctl.Width
    Next
    GetLargeurCB = w
End Function

'utilisation:
MaCommandBar.Width=GetLargeurCB(MaCommandBar)

A+