如何更改WORD的工具按钮图标?

hajbl2002

如何更改WORD的工具按钮图标?如将工具栏中的复制按钮图标，改为自己喜欢的ICO图标文件.可以做到吗？请高手指点！

守柔

右击工具栏/自定义，在自定义对话框状态下，右击需要更改按钮图标的命令，可以复制/粘贴/更改图标，也可以用VBA指定图标，请以ICON搜索本版。

xuer2004

我右击之后怎么没菜单出来,只看到"这是什么?"

hajbl2002

首先谢谢守柔版主的回复！
不过按您的说法，我觉得WORD默认添加的图标太少了，如何添加自己喜欢的图标呢？
C:\Documents and Settings\jbl\桌面\1.jpg
这里太少了！！！！

不用VBA能不能实现，如果用VBA，有代码吗？恳请答复！

守柔

http://club.excelhome.net/viewthread.php?tid=44804&replyID=333944&skin=0

http://club.excelhome.net/viewthread.php?tid=130396

http://club.excelhome.net/viewthread.php?tid=62135&replyID=&skin=0

hajbl2002

守柔版主:以下这段代码是你写的?它只是在工具栏添加一个按钮,我想问的是,这段代码如何修改才能将工具栏的图标改为某个图片.比如:将存盘的磁盘图标,改为自已的图片.

先谢谢了!

Option Explicit
Sub NewFace()
Dim Newbutton As CommandBarControl
With Application
.CustomizationContext = ActiveDocument '将自定义命令保存于活动文档
'在常用工具栏的第五个命令之前(即第四个之后)
Set Newbutton = .CommandBars("Standard").Controls.Add(Type:=msoControlButton, Before:=5)
With Newbutton
'加载的图片全路径
.Picture = LoadPicture("C:\Documents and Settings\My Documents\My Pictures\0041.bmp")
.Style = msoButtonIconAndCaption '图像与文本
.Caption = "It's a test!" '标题
.Visible = True '显示
.OnAction = "mySub" '运行指定的过程名
End With
End With
End Sub
'----------------------
Sub mySub()
MsgBox "It's only a Example"
End Sub
'----------------------

hajbl2002

第二个要发贴二十才能进呀![em06]

hajbl2002

守柔版主，帮帮我！

[em09]