如何在自定义工具栏上添加图标(非内置）？

wz7115

刚接触VBA菜鸟，请高手抽一点时间来详细说明一下步骤 非常感谢

守柔

对于内置图标可以直接使用其FACEID的ID号，如果不是特别清楚所有的内置图标的FACEID号，可以使用COPYFACE /PASTEFACE。

楼主的意思是使用自定义的图标，则可参见以下代码：

Sub NewFace() Dim Newbutton As CommandBarControl Set Newbutton = Application.CommandBars("Help").Controls.Add(Type:=msoControlButton, Before:=1) With Newbutton .Picture = LoadPicture("C:\Documents and Settings\My Documents\Temp\ry.bmp") .Caption = "It's a test!" .Visible = True End With End Sub

'**************************************************** Sub ResetNow() Application.CommandBars("Help").reset End Sub

konggs

谢谢老大。看到了。

把Standard代替help。就可以把图标放到工具栏的第一个图标的前面了。

我现在的问题是：

如何把这个放到工具栏中的第三行，的第四个图标的后面。怎么加？

守柔

以下是引用konggs在2005-10-15 16:07:00的发言：

谢谢老大。看到了。

把Standard代替help。就可以把图标放到工具栏的第一个图标的前面了。

我现在的问题是：

如何把这个放到工具栏中的第三行，的第四个图标的后面。怎么加？

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-10-17 07:18:47 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '№ 00037^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

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

konggs

谢谢,学会了新知识了.

hajbl2002

学到新东西了,谢谢守柔!

hajbl2002

学习研究中!