繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > [VBA]office中内建的faceid所对应的图标
- ASP.NET
- asp.net ajax功能强大的UpdatePanel控件
- mscorwks.dll在.Net中的地位及代码保护应用
- 使用.NET实现你的IP切换器
- 在ADO.NET中用参数化查询缩短开发时间
- Login控件：用户登录失败的消息提示
- 如何用C#来部署数据库
- .net打包自动安装数据库
- 数据库开发个人总结(ADO.NET小结)
- ASP.NET如何进行性能优化问题(2)
- ASP.NET如何进行性能优化问题(1)
- 用.Net实现基于CSS的AJAX开发(6)
- 用.Net实现基于CSS的AJAX开发(5)
- 用.Net实现基于CSS的AJAX开发(4)
- 用.Net实现基于CSS的AJAX开发(3)
- 用.Net实现基于CSS的AJAX开发(2)
- 用.Net实现基于CSS的AJAX开发(1)
- C#下用P2P技术实现点对点聊天
- ASP.NET服务器端异步Web方法
- 在asp.net中如何从视频文件中抓取一桢并生成图像文件
- .NET中多线程的同步资源访问
ASP.NET 中的 [VBA]office中内建的faceid所对应的图标
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 40 ::
收藏到网摘: 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
评论 (0) All
