帮忙了：Excel里加菜单（按扭），并运行某个程序或功能 ( 积分: 100 )

　　怎么在Excel里加菜单（按扭），并运行某个程序或功能，我看了以前的一些方法，可是调试不通，请问哪位高手有源码，发我一份，谢谢先！dave_168@163.com

　　怎么在Excel里加菜单（按扭），并运行某个程序或功能，我看了以前的一些方法，可是调试不通，请问哪位高手有源码，发我一份，谢谢先！dave_168@163.com

下面是在IE工具栏加按钮的代码，希望对你有所启发。
procedure TForm1.AddIconToIEExt;
var
Reg:TRegistry;
begin
Reg:=TRegistry.Create;
try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
if Reg.OpenKey('/Software/Microsoft/Internet Explorer/Extensions/{FB5F1910-F110-11d2-BB9E-00C04F795683}',True)then
begin
Reg.WriteString('CLSID','{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}');
Reg.WriteString('Exec',Edit3.Text);//鼠标左键点击后执行的程序
Reg.WriteString('HotIcon',Edit4.Text);//鼠标指针在图标上方时候的图标图像
Reg.WriteString('Icon',Edit5.Text);//鼠标指针不在图标上方时候的图标图像
Reg.WriteString('ButtonText',Edit1.Text);//鼠标滑过时的提示信息
Reg.WriteString('MenuText',Edit2.Text);//"工具"菜单中对应菜单项名称
if CheckBox1.Checked then//缺省情况显示该图标
Reg.WriteString('Default Visible','Yes')
else
Reg.WriteString('Default Visible','No');
end

finally
Reg.Closekey;
Reg.Free;
end;
end;

这个对office的操作好像不行吧？有没有人用　COM　开发的？

接受答案了.