Afficher tous les boutons d'une barre d'outils

drone · 4 Février 2011

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 · 4 Février 2011

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

Code:

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+

Afficher tous les boutons d'une barre d'outils

drone

XLDnaute Nouveau

Guest

Guest

Discussions similaires