[XL-2000] Taille Barre d'outils [Résolu]

[shakur221]

Bonjour,

J'ai créé une barre d'outils

Code :

CommandBars.Add(Name:="Barre", position:=msoBarTop, Temporary:=False)

Et après avoir ajouté les boutons et cie, je trouve que ma barre occupe trop d'espace (sur la hauteur). Je voudrais alors diminuer sa hauteur.

j'ai essayé

Code :

CBar.Height = 20

Mais j'ai une erreur d'exécution : "Le méthode Height de l'objet CommandBar a échoué".
Et pourtant quand je fais

Code :

MsgBox CBar.Height

, il m'affiche 26.

Quelqu'un pourrait m'éclairer un peu ?

Merci d'avance

[Brunodm13]

Bonjour,

Pour les CommandBars la propriété Height est en lecture seule.

Cordialement

Bruno

[Krovax]

Bonjour,
modifie la taille des bouton la barre s'adapte.

[shakur221]

Merci beaucoup, avec un peu de retard.... j'ai pas pu me connecter depuis...
je viens de modifier la taille des boutons et ça fonctionne.
Mais j'ai remarqué un truc bizarre : quand il y a un espace dans le .Caption de bouton, genre

Code :

1
2
3
4
5
With MonBouton
.Style = msoButtonWrapCaption
.Caption = "Ceci cela"     ' espace entre ceci et cela
.Height = 5
End With

il ne baisse pas la hauteur jusqu'à 5.
Enfin bref, jmle suis débrouillé et merci à vous.