word2000 的add-in 开发，msoControlButton类按扭有个faceid属性，能不能用自己做的图标？

mosuo 2003-05-30 11:15:17

我做过了word2002的版本，有个picture 属性，可以带自己做的图标，不知道word2000中怎么实现。

...全文

106 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

mosuo 2003-06-02

打赏
举报

回复

帮我顶顶!

mosuo 2003-05-30

打赏
举报

回复

有人懂吗？

EXCEL VBA创建菜单的代码 Sub Creatxlsht() On Error Resume Next Application.CommandBars("xlsht").Delete Dim cbrCmdBar As CommandBar Dim strCBarName As String strCBarName = "xlsht" Set cbrCmdBar = Application.CommandBars.Add(Name:=strCBarName, Position:=msoBarPopup) Set SubMenu = CommandBars(strCBarName).Controls.Add(Type:=msoControlButton) With SubMenu .Caption = "数据维护中心" .TooltipText = "aa" .Style = msoButtonIconAndCaption .Tag = "bb" .FaceId = 9588 ' 9949 '2122 '1018 .Enabled = True .OnAction = "k" End With Set SubMenu = CommandBars(strCBarName).Controls.Add(Type:=msoControlButton) With SubMenu .Caption = "显示客户记录" .TooltipText = "aa" .Style = msoButtonIconAndCaption .Tag = "bb" .FaceId = 9584 ' 9949 '2122 '1018 .Enabled = True .OnAction = "xskujl" End With Set SubMenu = CommandBars(strCBarName).Controls.Add(Type:=msoControlButton) With SubMenu .Caption = "删除客户记录" .TooltipText = "aa" .Style = msoButtonIconAndCaption .Tag = "bb" .FaceId = 9585 ' 9949 '2122 '1018 .Enabled = True .OnAction = "Sckujl" End With

Excel-VBA实用技巧范例-获取Excel菜单和工具栏信息.zip

EXCELVBA工具栏代码.pdf

Excel的工具栏和菜单栏VBA源码实例.doc

Word自定义右键菜单的VBA代码示例.docx

2,506

社区成员

10,831

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章