Accueil : Simulation : Excel : Programmation : FaceId

Ressource FaceId de Excel 97/98/2000

Personnes concernées

Programmeurs VBA

Sujet

Il s'agit d'un document pdf regroupant l'ensemble des icônes des barres de commandes d'Excel.

C'est très utile pour les programmeurs VBA, lorsqu'ils désirent créer des barres de commandes personnalisées.

Le numéro au-dessus de chaque icône correspond à l'identifiant FaceId

Télécharger le document

faceId.pdf (120 Ko)

Exemple de code

Sub Creation_Menu() On Error Resume Next Application.CommandBars("metrix").Delete On Error GoTo 0 Set mybar = Application.CommandBars.Add(Name:="metrix", Position:=msoBarRight, MenuBar:=False, temporary:=True) Set mycommande = mybar.Controls.Add(Type:=msoControlButton, Id:=1, Before:=1) With mycommande '.Caption = "" .TooltipText = "Ouvrir texte" .Style = msoButtonIcon .FaceId = 23 .BeginGroup = False .OnAction = "Ouvrir_Texte" End With Set mycommande = mybar.Controls.Add(Type:=msoControlButton, Id:=1, Before:=2) With mycommande '.Caption = "" .TooltipText = "Traitement" .Style = msoButtonIcon .FaceId = 283 .BeginGroup = True .OnAction = "Insertion_infos_complementaires" End With Set mycommande = mybar.Controls.Add(Type:=msoControlButton, Id:=1, Before:=3) With mycommande '.Caption = "" .TooltipText = "Préviualisation" .Style = msoButtonIcon .FaceId = 48 .BeginGroup = True .OnAction = "Graphique_Rapide" End With Set mycommande = mybar.Controls.Add(Type:=msoControlButton, Id:=1, Before:=4) With mycommande '.Caption = "" .TooltipText = "Répéter vers le bas" .Style = msoButtonIcon .FaceId = 40 .BeginGroup = False .OnAction = "RecopierVersLeBas" End With Set mycommande = mybar.Controls.Add(Type:=msoControlButton, Id:=1, Before:=5) With mycommande '.Caption = "" .TooltipText = "Sélectionner les colonnes" .Style = msoButtonIcon .FaceId = 800 .BeginGroup = False .OnAction = "Selectionner_colonnes" End With With mybar .Visible = True End With End Sub

Accueil : Simulation : Excel : Programmation : FaceId