[XL-2000] Taille Barre d'outils

shakur221 · 29/06/2009, 16h01

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 · 29/06/2009, 16h43

Bonjour,

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

Cordialement

Bruno

Krovax · 29/06/2009, 16h51

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

shakur221 · 01/07/2009, 09h39

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 :

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.

29/06/2009, 16h01	#1
shakur221 Futur Membre du Club Date d'inscription: avril 2008 Messages: 33	Taille Barre d'outils 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

01/07/2009, 09h39	#4
shakur221 Futur Membre du Club Date d'inscription: avril 2008 Messages: 33	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 : 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.

29/06/2009, 16h43	#2
Brunodm13 Membre du Club Date d'inscription: novembre 2008 Messages: 109	Bonjour, Pour les CommandBars la propriété Height est en lecture seule. Cordialement Bruno

29/06/2009, 16h51	#3
Krovax Expert Confirmé Date d'inscription: juillet 2008 Localisation: Elsass Âge: 24 Messages: 1 887	Bonjour, modifie la taille des bouton la barre s'adapte.

		Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
[XL-2000] Taille Barre d'outils

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email