texte sur bouton

[gh4]

bjr a tous
je suis en train de construire ma barre d'outils
1)Je n'arrive pas à ecrire un texte sur un bouton de cette barre
2) est il possible d'avoir un espace entre de deux boutons de la barre si oui comment

Merci.

.OnAction = "macro" 'commande de la macro
.TooltipText = "xxxx" 'texte au passage souris
.Style = msoButtonIcon
.Width = 100 'largeur
.Height = 20 'longueur
.FaceId = 640 'image

 

[BOISGONTIER]

Re : texte sur bouton

Bonjour,

Sub auto_open()
   Dim barre As CommandBar
   Dim bouton As CommandBarControl
   On Error Resume Next
   Set barre = CommandBars.Add(Name:="BarreBoutons")
   barre.Visible = True

   Set bouton = CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)

   bouton.Style = msoButtonIconAndCaption
   bouton.TooltipText = "xxx"
   bouton.FaceId = 121
   bouton.OnAction = "Macro1"
   bouton.Caption = "Macro1"

   Set bouton = CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
   bouton.BeginGroup = True
   bouton.Style = msoButtonCaption
   'bouton.Width = 100
   bouton.OnAction = "Macro2"
   bouton.Caption = "Macro2"
End Sub

Sub auto_close()
  On Error Resume Next
  CommandBars("BarreBoutons").Delete
End Sub

JB

 

[fanfan38]

Re : texte sur bouton

Pour avoir le texte de ton bouton
.Style = msoButtonCaption


A+ François

 

[gh4]

Re : texte sur bouton

merci bcp pour vos indications
est il posible de mettre de l'espace entre chaque bouton sans pour cela creer un bouton factice sans nom ni commande

 

[BOISGONTIER]

Re : texte sur bouton

bouton.BeginGroup = True

JB

 

[gh4]

Re : texte sur bouton

je voudrais qu'entre le bouton macro1 et macro 2 un espace de la dimension d'une certaine dimension existe afin que je repartisse sur toutesla longueur de ma feuille ma barre d'outils perso

Set cc = CB.Controls.Add(msoControlButton, , , , True)
With cc
.BeginGroup = True
.Style = msoButtonIconAndCaption 'msoButtonIcon
.OnAction = "macro1" 'nom de la macro
.Caption = "macro1" 'nom du bouton
.TooltipText = "xxxx" 'texte au passage souris

.Width = 100 'largeur
.Height = 20 'longueur
.FaceId = 640 'image
End With

Set cc = CB.Controls.Add(msoControlButton, , , , True)
With cc
.BeginGroup = True
.Style = msoButtonIconAndCaption
.OnAction = "macro2"
.Caption = "macro2"
.Width = 100 'largeur
.Height = 20 'longueur

End With

 

[fanfan38]

Re : texte sur bouton

Dans ce cas tu ne peux que creer un faux bouton...

A+ François