texte sur bouton

gh4 · 6 Avril 2008

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 · 6 Avril 2008

Re : texte sur bouton

Bonjour,

Code:

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 · 6 Avril 2008

Re : texte sur bouton

Pour avoir le texte de ton bouton
.Style = msoButtonCaption

A+ François

gh4 · 6 Avril 2008

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 · 6 Avril 2008

Re : texte sur bouton

bouton.BeginGroup = True

JB

gh4 · 6 Avril 2008

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 · 7 Avril 2008

Re : texte sur bouton

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

A+ François

texte sur bouton

gh4

XLDnaute Occasionnel

BOISGONTIER

XLDnaute Barbatruc

fanfan38

XLDnaute Barbatruc

gh4

XLDnaute Occasionnel

BOISGONTIER

XLDnaute Barbatruc

gh4

XLDnaute Occasionnel

fanfan38

XLDnaute Barbatruc

Discussions similaires