[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
------------------------------------------------
A voir également:
- [VBA] Problème barre d'outil et boutons
- Windows 11 barre des taches a gauche - Guide
- Outil de benchmark gratuit - Accueil - Utilitaires
- Télécharger outil capture d'écran ciseaux - Télécharger - Capture d'écran
- Barre d'outils windows 10 - Guide
- Comment réinitialiser un téléphone avec les boutons - Guide
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)
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)
