Office中国论坛/Access中国论坛

标题: OFFICE2007内置图标参照 [打印本页]

作者: 轻风 时间: 2010-2-26 16:05
标题: OFFICE2007内置图标参照
[attach]41577[/attach]

作者: tonyzh 时间: 2010-3-1 15:35
要钱呢

作者: LeeTien 时间: 2010-3-4 14:30
看看

作者: LeeTien 时间: 2010-3-4 14:30
在看看
把分挣回来

作者: 66364936 时间: 2010-3-15 21:43

作者: johnliu1974 时间: 2010-3-18 09:09
好东西，不要钱就好了

作者: tz-chf 时间: 2010-4-12 20:54
我找的2007excel没有开发工具

作者: mrd_wxqs 时间: 2010-4-18 13:55
我以为能单个使用呢，下了白下。

作者: guzhonghua26 时间: 2010-5-22 20:41
能用吗？

作者: 张秋南 时间: 2010-6-8 19:54
在哪个目录下？

作者: mg670 时间: 2010-6-18 16:03
怎样用程序读取呢

作者: mg670 时间: 2010-6-18 16:14
大家试试这个代码，不用金钱的。
Public 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

'Running IDs
For i = IDStart To IDStop
      Set NewButton = NewToolbar.Controls.Add _
         (Type:=msoControlButton, ID:=2950)
      NewButton.FaceId = i
      NewButton.Caption = i
      NewButton.Style = msoButtonIconAndCaption
Next i
NewToolbar.Width = 600
End Sub

作者: min_summer 时间: 2010-6-23 10:40
谢谢楼主分享

作者: fuxuan123 时间: 2010-7-22 20:35
不能单独使用吗？那意义不大啊

作者: mrd_wxqs 时间: 2010-8-25 08:34
最最重要的问题是如何在VBA中引用？

作者: foxsir 时间: 2013-4-2 14:09
谢谢楼主啦！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)