Can anyone show a list of button names in Excel 2010

Question

I would like to create a costum menu button using VBA in my excel 2010 file using a predefined excel button that uses the face id. In my case, I would like to use the lock and refresh icon, but I don’t know the face id for this icon. can someone show or show me a list of buttons and face name used in excel 2010?

Answer 1

Look at here:

Face id

Its add-on for MS excel. Works for Excel 97 and later.

Answer 2

The next Sub BarOpen () works with Excel 2010, most likely also with many other versions, and creates a custom temporary toolbar with drop-down lists in the "Add-ons" tab to show FaceIDs from 1 .. 5020 in groups of 30 pieces.

Option Explicit Const APP_NAME = "FaceIDs (Browser)" ' The number of icons to be displayed in a set. Const ICON_SET = 30 Sub BarOpen() Dim xBar As CommandBar Dim xBarPop As CommandBarPopup Dim bCreatedNew As Boolean Dim n As Integer, m As Integer Dim k As Integer On Error Resume Next ' Try to get a reference to the 'FaceID Browser' toolbar if it exists and delete it: Set xBar = CommandBars(APP_NAME) On Error GoTo 0 If Not xBar Is Nothing Then xBar.Delete Set xBar = Nothing End If Set xBar = CommandBars.Add(Name:=APP_NAME, Temporary:=True) ', Position:=msoBarLeft With xBar .Visible = True '.Width = 80 For k = 0 To 4 ' 5 dropdowns, each for about 1000 FaceIDs Set xBarPop = .Controls.Add(Type:=msoControlPopup) ', Before:=1 With xBarPop .BeginGroup = True If k = 0 Then .Caption = "Face IDs " & 1 + 1000 * k & " ... " Else .Caption = 1 + 1000 * k & " ... " End If n = 1 Do With .Controls.Add(Type:=msoControlPopup) '34 items * 30 items = 1020 faceIDs .Caption = 1000 * k + n & " ... " & 1000 * k + n + ICON_SET - 1 For m = 0 To ICON_SET - 1 With .Controls.Add(Type:=msoControlButton) ' .Caption = "ID=" & 1000 * k + n + m .FaceId = 1000 * k + n + m End With Next m End With n = n + ICON_SET Loop While n < 1000 ' or 1020, some overlapp End With Next k End With 'xBar End Sub 

Answer 3

I found in this place what I look at

http://support.microsoft.com/default.aspx?scid=kb; [LN]; Q213552

The table contains the control and the identifier (face identifier) ​​used in excel. Thus, for the Refresh button, the face identifier is 459, but it only works with an identifier of less than 3 digits.

and this generator (using the identifier of the initial face of the input and the identifier of the end side), then click the "show face faces" button, you will get a list of icons in the range (you must first log in to download)

http://www.ozgrid.com/forum/showthread.php?t=39992

and this is for the ribbon toolbar

http://www.rondebruin.nl/ribbon.htm

Answer 4

short script writes ten (set of loops for 10) FaceID add. as entering the tab toolbar "Add-In" and using "Benutzerdefinierte Symbolliste löschen" - you delete this added entry (mark and right-click) - works with excel 2010/2013

 Sub FaceIdsAusgeben() Dim symb As CommandBar Dim Icon As CommandBarControl Dim i As Integer On Error Resume Next Set symb = Application.CommandBars.Add _ ("Symbole", msoBarFloating) For i = 1 To 10 Set Icon = symb.Controls.Add(msoControlButton) Icon.FaceId = i Icon.TooltipText = i Debug.Print ("Symbole = " & i) Next i symb.Visible = True End Sub 

Answer 5

script provides excel 2010/2013 control name on worksheet

 Sub IDsErmitteln() Dim crtl As CommandBarControl Dim i As Integer Worksheets.Add On Error Resume Next i = 1 For Each crtl In Application.CommandBars(1).Controls(1).Controls Cells(i, 1).Value = crtl.Caption Cells(i, 2).Value = crtl.ID i = i + 1 Next crtl End Sub 

Answer 6

Changed the previous answer to create many toolbars with sets of 10 icons. Can change the code (comment / comment) the number of toolbars (performance may slow down on slower machines)

The last icon number for Office 2013 that I could find was 25424 for OneDrive

 Sub FaceIdsOutput() ' ================================================== ' FaceIdsOutput Macro ' ================================================== ' ========================= Dim sym_bar As CommandBar Dim cmd_bar As CommandBar ' ========================= Dim i_bar As Integer Dim n_bar_ammt As Integer Dim i_bar_start As Integer Dim i_bar_final As Integer ' ========================= Dim icon_ctrl As CommandBarControl ' ========================= Dim i_icon As Integer Dim n_icon_step As Integer Dim i_icon_start As Integer Dim i_icon_final As Integer ' ========================= n_icon_step = 10 ' ========================= i_bar_start = 1 n_bar_ammt = 500 ' i_bar_start = 501 ' n_bar_ammt = 1000 ' i_bar_start = 1001 ' n_bar_ammt = 1500 ' i_bar_start = 1501 ' n_bar_ammt = 2000 ' i_bar_start = 2001 ' n_bar_ammt = 2543 i_bar_final = i_bar_start + n_bar_ammt - 1 ' ========================= ' delete toolbars ' ========================= For Each cmd_bar In Application.CommandBars If InStr(cmd_bar.Name,"Symbol") <> 0 Then cmd_bar.Delete End If Next ' ========================= ' create toolbars ' ========================= For i_bar = i_bar_start To i_bar_final On Error Resume Next Set sym_bar = Application.CommandBars.Add _ ("Symbol" & i_bar, msoBarFloating, Temporary:=True) ' ========================= ' create buttons ' ========================= i_icon_start = (i_bar-1) * n_icon_step + 1 i_icon_final = i_icon_start + n_icon_step - 1 For i_icon = i_icon_start To i_icon_final Set icon_ctrl = sym_bar.Controls.Add(msoControlButton) icon_ctrl.FaceId = i_icon icon_ctrl.TooltipText = i_icon Debug.Print ("Symbol = " & i_icon) Next i_icon sym_bar.Visible = True Next i_bar End Sub 

 Sub DeleteFaceIdsToolbar() ' ================================================== ' DeleteFaceIdsToolbar Macro ' ================================================== Dim cmd_bar As CommandBar For Each cmd_bar In Application.CommandBars If InStr(cmd_bar.Name,"Symbol") <> 0 Then cmd_bar.Delete End If Next End Sub