请教word工具栏的问题

wy23456283

比如我增加一个工具栏，要指定用某个图标怎么设置？

CommandBars("文件操作").Controls.Add

这已经添加了工具栏，怎么指定固定的图标呢？

守柔

请下载置顶贴子《守柔WORD编程代码集》，内有详细介绍。

wy23456283

守柔大哥，我看了你的相关代码集，在认识工具栏和右键菜单里面有不少属性的设置，可是没看到设置图标的问题呀？

能不能帮我写下，就个属性的问题，谢谢了·

wy23456283

还有个问题，在运行结束时，怎么删除某个宏。

守柔

以下是引用wy23456283在2005-7-4 19:20:54的发言： 还有个问题，在运行结束时，怎么删除某个宏。

您倒是看仔细了，第十六例〈自定义右键菜单〉

以下代码供参考：

一) 自定义右键菜单（修改右键）

功能简介:在右键文本菜单的中部位置(相当于右击文本时出现的菜单),添加一个自定义命令,并执行相应过程

'* +++++++++++++++++++++++++++++++++++++++

'^The Code CopyIn [ThisDocument-ThisDocument]^'

'* --------------------------------------------------------------------------

Private Sub Document_Close() On Error Resume Next Application.CommandBars("Text").Controls("Test").Delete '恢复原有菜单 End Sub '---------------------- Private Sub Document_Open() Dim Half As Byte On Error Resume Next Dim NewButton As CommandBarButton Application.CommandBars("Text").Controls("Test").Delete '预防性删除 Half = Int(Application.CommandBars("Text").Controls.Count / 2) '中间位置 Set NewButton = Application.CommandBars("Text").Controls.Add(Type:=msoControlButton, Before:=Half) With NewButton .Caption = "Test" '命令名称 .FaceId = 100 '命令的FaceId .Visible = True '可见 .OnAction = "MySub" '指定响应过程名 End With End Sub '---------------------- Sub MySub() MsgBox "It's A Test For CommandBars(""Text"")!", vbOKOnly + vbInformation End Sub '---------------------- Sub ComReset() '重新设置右键菜单,彻底恢复默认设置 Application.CommandBars("Text").Reset End Sub '----------------------

wy23456283

我是看仔细了，我没看出来有指定某个图标的语句么，Type:=msoControlButton，这个好象和外观没啥关系，能指明一下么，还有在退出时候，也没看到有删除某个宏的语句，也就是说，退出时比如要把sub mysub 删除怎么写？

wy23456283

好象不对，我尝试过修改这个属性，发现图标没变。

兰色幻想

这句应是你想要的：.FaceId = 100