Access和Excel的按钮图标对应的编码(FaceId)分别是多少？

时　间:2016-09-26 08:31:38
作　者:杜超   ID：16058  城市：江阴
摘　要:2003,2010版显示的位置不同，如下图
正　文:

点击下载此附件

图   示:

执行代码:
Sub ShowFaceIDs()
    Dim NewToolbar As CommandBar
    Dim NewButton As CommandBarButton
    Dim i As Integer, IDStart As Integer, IDStop As Integer

    ' Delete existing FaceIds toolbar if it exists
    On Error Resume Next
    Application.CommandBars("FaceIds").Delete
    On Error GoTo 0

    ' Add an empty toolbar
    Set NewToolbar = Application.CommandBars.Add _
                     (Name:="FaceIds", temporary:=True)
    NewToolbar.Visible = True

    ' Change the following values to see different FaceIDs
    IDStart = 1
    IDStop = 800

    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 = 600
End Sub