用DELPHI打开EXCEL时,如何把EXCEL“所有”的工具栏都隐藏掉呢?

Question

大家好，我现在使用delphi7及office2003编程，使用了OleContainer显示EXCEL，只知道可以使用类似
“ExcelApp.CommandBars("Standard").Visible := False”
这样的语句来隐藏excel的工具栏，但使用这样的方法无法隐藏全部的工具栏，因为不同用户安装excel的插件是不一样的，请问有没有例子是可以隐藏excel的全部工具栏呢？

Answer 1

楼主可以参考一下vba里的例子，然后再到delphi中实现

Answer 2

我记得是做循环
ExcelApp.CommandBars.count
ExcelApp.CommandBars[i].Visible := False
大概是这样吧，但是最好记得帮人家把工具栏还原

Answer 3

我也参考过别人的资料，尝试做循环，但是
ExcelApp.CommandBars[i].Visible := False； 
这句编译不通过！
单项是这样写：
“ExcelApp.CommandBars("Standard").Visible := False” 
用循环的方式，我就搞不清楚怎么用变量代替"Standard"。

Answer 4

打印预览工作表: 
ExcelApp.ActiveSheet.PrintPreview; 

Answer 5

To ron_xin,
我是要配合下位机由串口读取数据并显示，是所以只读也是可以的。
请问如果.PrintPreview的方法，我数据更新了怎么刷新的？
我先试下PrintPreview的方法忙做我的要求没有。

Answer 6

for i:=0 to ExcelApplication1.CommandBars.count-1 do
begin
      ExcelApplication1.CommandBars.Item[i].Set_Visible(false);
end;之前请记录好ExcelApplication1.CommandBars.Item[i].Visible的状态，我不想你被用户投砖头

Answer 7

TO yuyuhaso，你这个代码是使用ExcelApplication控件的吗？
如果我是use comobj，可以指教下代码怎么写吗？