icones pour barre perso

Bonjour
Ici
http://dj.joss.free.fr/faq.htm#seriedebouton

Daniel
--
FAQ MPFE
FAQ du forum microsoft.public.fr.excel
http://dj.joss.free.fr/faq.htm
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 60CA31D9-D40E-4528-9F08-083D382AB6FF@microsoft.com...

bonjour,
je voudrais savoir ou je peux trouver les différents icones afin de
modifier
ma barre perso? J'avais trouvé un fichier avec toutes les correspondance
n°/image, mais je le retrouve plus.
Merci encore.
Yann

merci.
yann

Bonjour Sunburn,

Sub listeFacesID()
Dim i As Integer, j As Integer, k As Integer
Dim cbCtl As CommandBarControl, cbBar As CommandBar
On Error Resume Next
Application.ScreenUpdating = False
Set cbBar = CommandBars.Add(Position:=msoBarFloating, MenuBar:úlse, _
temporary:=True)
Set cbCtl = cbBar.Controls.Add(Type:=msoControlButton, temporary:=True)
k = 1
Do While Err.Number = 0
For j = 1 To 10
i = i + 1
Application.StatusBar = "FaceID=" & CStr(i)
cbCtl.FaceId = i
cbCtl.CopyFace
If Err.Number <> 0 Then Exit For
ActiveSheet.Paste Cells(k, j + 1)
Cells(k, j).Value = i
Next j
k = k + 1
Loop
Application.StatusBar = False
cbBar.Delete
Set cbBar = Nothing
Set cbCtl = Nothing
End Sub


ChrisV


"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 60CA31D9-D40E-4528-9F08-083D382AB6FF@microsoft.com...

bonjour,
je voudrais savoir ou je peux trouver les différents icones afin de
modifier
ma barre perso? J'avais trouvé un fichier avec toutes les correspondance
n°/image, mais je le retrouve plus.
Merci encore.
Yann