Code des smiley

[Denis]

bonsoir à tous,

je cherche la liste des smiley en vba,

c'est pour ma barre perso

merci
@+ denis

 

[K@d]

Salut,

essaie le code suivant qui crée une barre d'outils avec de nombreux boutons... Il suffit de changer la ligne indiquée pour en afficher d'autres.

'********************************

Sub ShowFaceIDs()

Dim NewToolbar As CommandBar
Dim NewButton As CommandBarButton
Dim i As Integer, IDStop As Integer

On Error Resume Next

'on détruit la barre d'outils si elle existe
Application.CommandBars("FaceIds").Delete
On Error GoTo 0

'nouvelle barre d'outils
Set NewToolbar = Application.CommandBars.Add _
(Name:="FaceIds", Position:=msoBarFloating, temporary:=True)

'CHANGER IDStart pour en afficher d'autres (incrémenter de 500 ou 1000 selon le chiffre en dessous)
If ID.Visible = False Then IDStart = 0

'CHANGER le chiffre ci-dessous pour en afficher plus ou moins (entre 500 et 1000 c'est bien)
IDStop = IDStart + 1000


For i = IDStart To IDStop
Set NewButton = NewToolbar.Controls.Add(Type:=msoControlButton, ID:=2950)
NewButton.FaceId = i
NewButton.Caption = "FaceID = " & i
Next i

NewToolbar.Width = 400
NewToolbar.Left = 300
NewToolbar.Top = 140
NewToolbar.Visible = True

If ID.Visible = False Then ID.Show

End Sub

*----------------------------------------------------------

Il n'y a plus qu'à passer sur le bouton pour obtenir le code !
J'espère que je réponds à la question !!
Bon courage !

Clément