Rapport de message :*
 

Re: bouton personnalisé dans xla

Titre du sujet : Re: bouton personnalisé dans xla
par myDearFriend! le 29/12/2009 18:03:26

Bonsoir nightfever (et bienvenue sur XLpages.com), Guy, le Forum,

Bon, puisque j'ai aussi travaillé un peu sur ce sujet...

Contrairement à ce que tu crois, l'icône utilisée pour mDF XLdoublons n'est pas une icône personnalisée, mais une icône prédéfinie : FaceId = 1987

Cela dit, il est tout à fait possible de réutiliser une image perso (avec la taille adéquate autant que possible) pour l'affecter à un bouton de ta barre d'outils. Pour cela, on utilise par exemple la simple méthode PasteFace en lieu et place de la propriété FaceId:

Soit une image insérée sur la feuille 1 de ton classeur (feuille qui peut être masquée par la suite), le code suivant va créer un bouton dans la barre d'outils standard et lui affecter une copie de cette image :

   With Application.CommandBars("Standard").Controls.Add(msoControlButton)
        .Caption = "Mon Bouton"
        .Style = msoButtonIconAndCaption
        .OnAction = "MaMacro"
        'Icône
        Sheets(1).Pictures("Image 1").Copy
        .PasteFace
    End With

Tu trouveras en pièce jointe l'exemple que j'ai préparé...

Cordialement,