100分相送！！！小妹有一事相求！！！OLE调用EXCEL：如何屏蔽菜单（其中工具一项不屏蔽）与工具栏，如何实现OLE调用EXCEL的打印预鉴功能

Question

如题！！！！！！！！！！！！！！！！我给300分系统不让！！！

Answer 1

控制Word的菜单, 你参考，看能不能改到 excel上
请问：怎样用wordapplication增、删、改WORD菜单？需要示范代码，谢谢！
 来自：menxin, 时间：2001-11-1 12:37:00, ID：700137 
呵呵，真加这么多呀，好，我给你写一个吧uses Office2000;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  WordApplication1.Connect;
  WordApplication1.Visible:=true;
end;procedure TForm1.Button2Click(Sender: TObject);
var i:Integer;
begin
  if WordApplication1.CommandBars.ActiveMenuBar.Enabled  then begin
     with WordApplication1.CommandBars.ActiveMenuBar do begin
{       ListBox1.Clear;
       for i:=1 to Controls.Count do
         ListBox1.Items.Add(Controls[i].Caption);}//你可以把现有的菜单信息放在这个LISTBOX里看一下
       Controls[5].Set_Visible(false); //删除菜单,实际是隐藏
       Controls[Controls.Count].Set_Caption('我的帮助');  //改菜单项
       with Controls.Add(msoControlpopup,EmptyParam,EmptyParam,EmptyParam,true) do begin  //增加菜单
         Set_Caption('新菜单项');
       end;
     end;
  end;
end;

Answer 2

http://www.afalinasoft.com/office-add-in-express/howto.html#2_06

Answer 3

我用OLE不行也，只能执行到
     ListBox1.Items.Add(Controls[i].Caption);}到这里可以把那些菜单给显示出来，下面一句就有错了，不知道为什么