The following Sub BarOpen() work with Excel 2010, most may also many other edition also, and produceds in the Tab “Add-Ins” atom, provisional toolbar withdowns to show the faceIDs from 1 . 5020 in groups of 30 items.

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

look:

http://skp.mvps.org/faceid.htm>rel=“noreferer”>Face ID s

Modified previous answer to create numerous toolbars with sets of 10 icons. Can change code (comment/un-comment) number of toolbars (performance may be slow on slower machines)

我可以找到的2013年办公室最后一个数字是25424个,涉及一个司机。

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

I put together my own list of button face ID s. I used Excel VBA code to test all the toolface numbers up to 100,000. There were faces for ID numbers up to almost 34,000. Most of these had duplicates, which make them harder to look through. I compared all the faces to each other using a VBA arraylist, and only kept the first instance of each one. I think this file shows all the toolfaces with their numbers, but it only shows each one once: https://www.dropbox.com/s/7q7y7uf3tuy02uu/FaceID%20Excel%202021.pdf?dl=0

短文撰写10本(10版)面孔。 作为进入工具bar Tab“Add-In”和“Benutzerdefinierte signliste löschen”的条目,你删除了这一添加条目(标志和右 mo点)——与Vecel 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

文字规定了2010/2013年控制表

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

I found it in this location what i`m looking at

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

The table contain the Control and id (Face Id) used in excel. So for "Refresh" button the face id is 459, but it only work on the id less than 3 digit.

而这一生成者(通过投入开始面临id和端面面id)则点击了 show子的面孔,你们在范围上获得了icon(必须首先下载)清单。

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

A. 关于《里约工具包》

rel=“nofollow”>http://www.rondebruin.nl/ribbon.htm