如何自定义宏的图标及如何删除工具栏中的宏图标 守柔版请进～

ggdd319

1、我把自己制作的相关宏放在了一个自定义的工具栏中，但图标只有这几个，我想用自定义的，可以吗？

2、我原来安装过一个“机关公文助手”，后来删除了，但这个软件在：“常用”工具栏中添加了一个“机关公文助手”的选项，无法去除，在 工具--宏 中可以看到，但点击后，删除选项不可选，呈灰色，请问还有别的方法可以去除吗

[此贴子已经被作者于2004-12-28 20:46:11编辑过]

sayeah51

我也问过几次了,好象没有答过.希望好心人答答这个小问题吧.

守柔

其实对于这个问题，一是涉及FACEID的问题，还有可能是涉及加载图片的问题，请参：http://club.excelhome.net/dispbbs.asp?BoardID=23&replyID=333944&id=44804&skin=0

对于删除问题，可以使用代码进行删除，请参阅：

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 '----------------------

ggdd319

谢谢，：）