当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > [VBA]office中内建的faceid所对应的图标

ASP.NET
ADO+ 引导数据种类的演变(转自 ms 一)
C#抢鲜快报之FAQ20
通过指定IP地址得到当前的网络上的主机的域名
网上追捕(很多实用的port)
asp+中的发送者是什么意思
一个完整的网上追捕的原程序
C#里操作时间的例子!
查看主机的内存使用情况
asp+中是如何连接数据库ado+的
一个用c#写的扫描asp源码漏洞的应用程序
一个用c#写的扫描asp源码漏洞的应用程序(续)
两个获取http页面的c#函数
asp.net高级教程(一)---asp.net , 还是asp+ ?
asp.net高级教程(二)--- 转换编程思维
asp.net高级教程(三)---对象
asp.net高级教程(三)---实战篇
asp.net高级教程(五)---实战篇(中)
C#消息队列应用程序 -1
C#消息队列应用程序 -2
使用 ASP+ 列表绑定控件(上)

ASP.NET 中的 [VBA]office中内建的faceid所对应的图标


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 121 ::
收藏到网摘: n/a


今天为了在EXCEL的工具栏中建一个自定义按钮,并加上图标,但怎么找也找不出资料来说明各个FACEID对应的图标是什么,还好,找到这个,一试,爽!所有图标出齐了!
注:
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