[VBA] Problème barre d'outil et boutons
Boon
-
papyjac -
papyjac -
Re Bonjour!
Encore un petit problème...désolé pour tout le boulot que je vous donne, et encore merci pour votre aide!
Voilà mes problèmes:
1) Quand on crée une barre d'outil, Comment faire pour que celle-ci soit placée avec les autres barres d'outils, en haut de l'écran? Car quand je crée une barre d'outil, celle ci est crée en plein milieu de l'écran, donc pas tip top!
2) J'ai créé des boutons avec ma barre d'outils, mais quand je veux changer l'image de ces boutons, je dois assigner un nombre, et je ne connais pas la correspondance image/nombre...Quelqu'un peut-il me dépanner?
Merci encore!
Voilà mon code pour que vous y voyiez plus clair!
-------------------------------------------------------
Dim MaBarre As CommandBar
Dim NouvBtn As CommandBarButton
Dim NouvBtn2 As CommandBarButton
Dim NouvBtn3 As CommandBarButton
Set MaBarre = CommandBars.Add("CNE")
Set NouvBtn = MaBarre.Controls.Add
Set NouvBtn2 = MaBarre.Controls.Add
Set NouvBtn3 = MaBarre.Controls.Add
With NouvBtn
.Caption = "Copier"
.FaceId = 28
.OnAction = "Copier"
.State = msoButtonUp
.Style = msoButtonIconAndCaptionBelow
.TooltipText = "Copier les cellules"
End With
With NouvBtn2
.Caption = "Dimensionner"
.FaceId = 27
.OnAction = "Dimensionner"
.State = msoButtonUp
.Style = msoButtonIconAndCaptionBelow
.TooltipText = "Dimensionner graphe"
End With
With NouvBtn3
.Caption = "Traitement"
.FaceId = 26
.OnAction = "Traitement"
.State = msoButtonUp
.Style = msoButtonIconAndCaptionBelow
.TooltipText = "Traiter les données"
End With
MaBarre.Visible = True
------------------------------------------------
Encore un petit problème...désolé pour tout le boulot que je vous donne, et encore merci pour votre aide!
Voilà mes problèmes:
1) Quand on crée une barre d'outil, Comment faire pour que celle-ci soit placée avec les autres barres d'outils, en haut de l'écran? Car quand je crée une barre d'outil, celle ci est crée en plein milieu de l'écran, donc pas tip top!
2) J'ai créé des boutons avec ma barre d'outils, mais quand je veux changer l'image de ces boutons, je dois assigner un nombre, et je ne connais pas la correspondance image/nombre...Quelqu'un peut-il me dépanner?
Merci encore!
Voilà mon code pour que vous y voyiez plus clair!
-------------------------------------------------------
Dim MaBarre As CommandBar
Dim NouvBtn As CommandBarButton
Dim NouvBtn2 As CommandBarButton
Dim NouvBtn3 As CommandBarButton
Set MaBarre = CommandBars.Add("CNE")
Set NouvBtn = MaBarre.Controls.Add
Set NouvBtn2 = MaBarre.Controls.Add
Set NouvBtn3 = MaBarre.Controls.Add
With NouvBtn
.Caption = "Copier"
.FaceId = 28
.OnAction = "Copier"
.State = msoButtonUp
.Style = msoButtonIconAndCaptionBelow
.TooltipText = "Copier les cellules"
End With
With NouvBtn2
.Caption = "Dimensionner"
.FaceId = 27
.OnAction = "Dimensionner"
.State = msoButtonUp
.Style = msoButtonIconAndCaptionBelow
.TooltipText = "Dimensionner graphe"
End With
With NouvBtn3
.Caption = "Traitement"
.FaceId = 26
.OnAction = "Traitement"
.State = msoButtonUp
.Style = msoButtonIconAndCaptionBelow
.TooltipText = "Traiter les données"
End With
MaBarre.Visible = True
------------------------------------------------
Configuration: Windows Vista Firefox 2.0.0.5
3 réponses
-
Salut,
il me semble qu'il faut utiliser le contrôle ImageList avec le contrôle CommandBar (les images ne sont pas lues directement sur le disque mais stockées dans le contrôle ImageList qui lui assigne bien un numéro d'image) -
-
Essaie ça
Set MaBarre = CommandBars.Add(Name:="CNE", Position:=msoBarTop, temporary:=True)
Si quelqu'un sait si l'on peut mettre un icône créé par soi-même dans les boutons d'une barre d'outils que l'on crée, je suis preneur.
