FACEID浏览器——显示工具栏图标及其序号

liechun1983

很方便,很实用!

moccoy

太赞了。谢谢！

lb_bn

这个有创意，向楼主学习。

xieroy

太谢谢楼主了.真的是好东西!

jathson

Sub ShowFaceIDs()
     Dim NewToolbar As CommandBar
     Dim NewButton As CommandBarButton
     Dim i As Integer, IDStart As Integer, IDStop As Integer
     Application.ScreenUpdating = False
   
     On Error Resume Next
     Application.CommandBars("FaceIds").Delete
     On Error GoTo 0
   
     Set NewToolbar = Application.CommandBars.Add _
     (Name:="FaceIds", temporary:=True)
     NewToolbar.Visible = True
   
     IDStart = 1
     IDStop = 1020
   
     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 = 1000
     
     Application.ScreenUpdating = True
   
    End Sub

liu_my

真棒！谢谢！！

zhuh84

呵呵，感谢分享

hygjg

我要看看啊

cliffordzk

真是很方便使用呢！

山西