Discussion :

[ENDAMA NDONG]

salut,


sur mon ménu, je souhaiterais avoir des boutons avec images pour améliorer ma présentation.

merci

[ouskel'n'or]

Hello,

J'ai ça pour placer un bouton sur une nouvelle barre d'outils et lui affecter une macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_AddinInstall()
    'AddIns("Conversion en adresse absolue.xla").Installed = True
    Application.CommandBars.Add(Name:="ConversionFrancsEuros").Visible = True
    Set MaBarre = CommandBars("AdresseAbsolue")
        MaBarre.Visible = True
    Set MonBouton = MaBarre.Controls.Add(Type:=msoControlButton)
        MonBouton.FaceId = 0 '"0" colle un bouton gris (2950 : je ne sais plus)
        MonBouton.Caption = "Convertit le contenu de la cellule en &€uros"
        MonBouton.OnAction = "'Convertisseur Francs Euros.xla'!TransformeEnEuros"
        MonBouton.PasteFace
End Sub

Dans ce code, " MonBouton.PasteFace" je colle l'image d'une icône que j'ai copiée (ctrl + Inser) avant de lancer la macro.

Comme la question est récurrente, je vais me décider à voir s'il n'y a pas moyen de coller directement l'image d'une icône à partir de son fichier... Ça me règlera un pb à moi aussi ...

A+

[ouskel'n'or]

Bon, alors je viens de jeter un oeil sur le placement direct de l'icône d'un fichier .ico sur un bouton placé dans une barre d'outils (sous office 97) : Cette possibilité n'existe pas. Par contre, j'ai trouvé ça dans l'aide :

CopyFace : Copie l'image du bouton de barre de commandes spécifié dans le Presse-papiers.

Syntaxe
expression.CopyFace
expression Obligatoire. Expression qui renvoie un objet CommandBarButton.

Remarque
La méthode PasteFace permet de coller le contenu du Presse-papiers sur l'image du bouton

Bref, tu places l'image quelque part, tu la copies et tu lances ma macro, ça t'évitera d'avoir à identifier l'image par soft, de la retrouver par soft et de la copier par soft...
Comme ma macro est dans un .xla, mon image est sur une feuille... masqué par définition.

Si ces commentaires peuvent t'aider... je serai bien content...

A+