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

liechun1983 · 发表于 2009-8-30 23:47

很方便,很实用!

moccoy · 发表于 2009-10-20 16:45

太赞了。谢谢！

lb_bn · 发表于 2009-10-20 17:23

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

xieroy · 发表于 2009-11-20 14:40

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

jathson · 发表于 2010-2-25 08:08

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 · 发表于 2010-4-2 11:26

真棒！谢谢！！

zhuh84 · 发表于 2010-4-5 14:18

呵呵，感谢分享

hygjg · 发表于 2010-7-14 21:13

我要看看啊

cliffordzk · 发表于 2010-7-28 11:41

真是很方便使用呢！

山西 · 发表于 2010-8-12 11:09

		自动登录	找回密码
密码			免费注册

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

可否这样写?试试效果似乎更好!!

谢谢！！！