Rechercher les faces de différent boutons de la barre d'outils standard.


Macro pour afficher les différents boutons:
Sub AfficheBoutons()
Dim NewBarreOutil As CommandBar
Dim NewBouton As CommandBarButton
Dim i As Integer, IconOn As Integer, IconOff As Integer
'Supprime la barre si elle existe déjà
On Error Resume Next
Application.CommandBars("BarBouton").Delete
On Error GoTo 0
Set NewBarreOutil = Application.CommandBars.Add _
(Name:="BarBouton", temporary:=True)
NewBarreOutil.Visible = True
'Une macro qui affiche des boutons:
'Affiche les boutons 1 à 200
'Suivant la vitesse de votre ordinateur vous pouvez passer
'le paramètre IconOff à 600 (Attente de 30 secondes)
'Ou bien modifier le paramètre de départ IconOn = 100
'et IconOff= 200 (Rapide)

IconOn = 1
IconOff = 200
For i = IconOn To IconOff
Set NewBouton = NewBarreOutil.Controls.Add _
(Type:=msoControlButton, ID:=2950)
NewBouton.FaceId = i
NewBouton.Caption = "FaceID = " & i
Next i
NewBarreOutil.Width = 700
NewBarreOutil.Left = 50
NewBarreOutil.Top = 120
End Sub

Retour liens Excel