Menu personnalisé insertion image dans un bouton

[joums]

Bonjour,

Je souhaite créer un menu personnalisé,

j'ai lu les différents tuto à ce sujet,
j'arrive à créer un menu avec plusieurs boutons

mais je n'arrive pas à leur associer une image personnalisé

Voici le code utilisé

Private Sub Workbook_Open()
  Dim CmdBar As CommandBar
    Dim Bouton As CommandBarButton
    
    'Création de la barre d'outils nommée 'MaBarrePerso'
    Set CmdBar = Application.CommandBars _
        .Add(Name:="MaBarre", Position:=msoBarTop, Temporary:=True)
    
    'Ajout de 3 boutons dans la barre d'outils
    Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
    With Bouton
        '.Name = bouton1
        'Définit "l'image" qui va s'afficher sur le bouton
        
 
       '.FaceId = 133 'CELA MARCHE AVEC DES ICONES PREDEFINIES
 
        'Définit quelle macro est associée au bouton.
        'Cette macro sera lancée à chaque fois que vous cliquez sur le bouton.  
        .OnAction = "Macro1"
    End With
    
    Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
    With Bouton
        .FaceId = 134
        .OnAction = "Macro2"
    End With
    
    Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
    With Bouton
         .FaceId = 135
        .OnAction = "Macro3"
    End With
    
    CmdBar.Visible = True
    
End Sub

En lisant le tuto de Fring je réussis à créer un autre bouton avec une image perso mais seulement en actionnant une macro.
Je ne sais pas le faire dès l'ouverture du fichier excel

 

[Simons]

Re : Menu personnalisé insertion image dans un bouton

Salut,

Pour lancer une macro dès l'ouverture de ton fichier excel il faut la placer dans le menu THISWORKBOOK de ton projet.

 

[joums]

Re : Menu personnalisé insertion image dans un bouton

Bonjour,

effectivement oui pour lancer la macro il faudrait la mettre dans le menu THISWORKBOOK.

Mais ce que je n'arrive pas à faire c'est :
- mettre une image perso dans les boutons lorsque je créé ma barre de menu
=> mettre autre chose à la place de faceID = .....

 

[Simons]

Re : Menu personnalisé insertion image dans un bouton

Re,

Voici ce que dis l'aide d'excel concernant le Faceid :

La propriété FaceId contrôle l'apparence mais pas la fonction d'un bouton de barre de commandes. La propriété Id de l'objet CommandBarControl détermine la fonction du bouton.
La valeur de la propriété FaceId pour un bouton de barre de commandes dont l'image est personnalisée est égale à 0 (zéro).

Je pense ton problème viens de la.

 

[joums]

Re : Menu personnalisé insertion image dans un bouton

Il faudrait alors que je mettre faceID = 0
et que j'inclus la macro direct à l'ouverture dans le menu THISWORKBOOK ?

 

[Simons]

Re : Menu personnalisé insertion image dans un bouton

Oui c'est ca.

A+

 

[joums]

Re : Menu personnalisé insertion image dans un bouton

ok je vais re essayer mais j'avais pas su faire
merci

 

[joums]

Re : Menu personnalisé insertion image dans un bouton

Re,
Ca ne marche pas, je n'y arrive pas

J'ai essayé de donner un nom à chaque bouton

et j'ai attribué l'image

'emplacement de l'image
D = "F:\Data\image.jpg"
 With Bouton
        '.Name = bouton1
        'Définit "l'image" qui va s'afficher sur le bouton
        .picture = D
 
       '.FaceId = 133 'CELA MARCHE AVEC DES ICONES PREDEFINIES
 
        'Définit quelle macro est associée au bouton.
        'Cette macro sera lancée à chaque fois que vous cliquez sur le bouton.  
        .OnAction = "Macro1"
    End With

Auriez vous une idée

Merci

 

[Simons]

Re : Menu personnalisé insertion image dans un bouton

Re Joums,

Désolé mais mes compétences s'arrètent la pour les commandbars..
Je ne suis pas assez calé pour t'aider d'avantage.