FaceId....

Re,

Petite précision. Je sais ( toujours grâce au même Den-J ) qu'il est
possible de copier un icônes à la place de la propriété FaceId.

Je sais faire mais sur ce coup là je voudrais absolument utiliser le
FaceId.... lol

Merci de votre aide.

Cordialement.

Excel...lent

Bonjour Excellent,

Une façon de faire :

A - tu écris 10 dans une cellule
B - Dimensionne la cellule pour qu'elle se rapproche de la taille du chiffre
C - Copie dans le presse papier Ctrl + c
D - En maintenant la touche Maj enfoncé, utilise la commande "coller image"
du menu édition
C - Colore l'image obtenu selon tes désirs.

Utilises cet exemple pour insérer cet image sur un bouton d'une barre d'outils
La macro utilise "Image 4" et "Feuil5" que tu dois adapter à ta réalité.

Dans ton projet, tu peux toujours mettre l'image dans une feuille de ton classeur perso.xls.

'----------------------------
Sub ImageSurBouton_BarreOutils()

Dim Mbar As CommandBar

On Error Resume Next
Set Mbar = Application.CommandBars.Add("MaBar")
Mbar.Visible = True

With ThisWorkbook
With Worksheets("Feuil5")
With .Shapes("Image 4")
.Copy
End With
End With
End With

With Mbar.Controls.Add(msoControlButton)
.Caption = "LanceMacro1"
'Affiche Icône et Texte
.Style = msoButtonIconAndCaption 'msoButtonIcon pour icône seulement
'Colle l'image du presse-papier
.PasteFace
'Macro associé au bouton
.OnAction = "LaMacro"
End With

End Sub
'----------------------------


Salutations!



"Excel...lent" <vpco@free.fr> a écrit dans le message de news: uVCX7VOLGHA.1180@TK2MSFTNGP09.phx.gbl...
Bonsoir la communauté,

Oui, oui je sais en ce moment je vous sollicite souvent. Désolé.-))))

Alors ci-dessous le code qui crée une barre outil nommée "PERSO" avec un
bouton .

Ce bouton a comme FaceId le "1" soit FaceIdq

Si je veux faire un bouton avec "10" à l'intérieur est-il possible de mettre
2 FaceId ( en l'occurance le 71 + 70 ) dans la propriété FaceId ?

Merci à Den-J à qui j'ai "pompé" le code pour créer une barre outil perso
dans son excellent classeur dj-planning sur le non moins excellent site
EXCELABO......

Merci de votre aide.

Cordialement.

Excel...lent



le Code :

Sub Auto_open()
'
'Création de boutond dans une nouvelle barre d'outils
'
Dim mybar As CommandBar, mybarButton As CommandBarButton
Auto_close ' suppression de la barre de commande si elle existe
'**************************************************************
'* CREATION BARRE OUTILS " PERSO " *
'**************************************************************
' creation d'une nouvelle barre de commande appelée "perso"
Set mybar = CommandBars.Add(Name:="perso", Position:=msoBarTop,
temporary:=True)
'************************************************
' 1er bouton
'************************************************
Set mybarButton = mybar.Controls.Add(msoControlButton, , , , True)
With mybarButton
.Caption = "UN" 'Nom du bouton 1
'.PasteFace ' colle image copiée juste avant
.FaceId = 71
.Style = msoButtonIconAndCaption
.OnAction = ThisWorkbook.Name & "!AffMsg"
.TooltipText = "C'est le UN" 'légende pour le bouton
End With
'
mybar.Visible = True ' display de la barre de commande
End Sub

Salut Denis,

Comme d'hab tu tapes là où il faut.

J'avais pas l'intention d'utiliser la propriété PasteFace comme je le disais
dans mon 2ème post de ce fil mais tu m'as convaincu.

Je viens de découvrir une nouvelle manière de créer une image que je ne
connaissais pas. Le coup de la touche Maj + "coller image" TROP FORT ! ! !

Merci encore à toi.

Cordialement.

Marc