如何使用OLE向Excel添加按钮

Question

我使用这样的OLE方法：

var   
  xlApp, xlWorkBook, xlWorkSheet, arr: Variant; 
begin   
  xlApp := CreateOLEObject('Excel.Application');   
  xlApp.Visible := True;    
end; 

如何向Excel添加按钮？

如何在此按钮上分配现有的marco？

我在哪里可以找到Delphi-OLE-Office文档？

THX。

Answer 1

我通过录制VBA宏然后将其粘贴到Delphi例程中来解决这个问题：

xlApp := CreateOLEObject('Excel.Application');
xlApp.Visible := True;
xlWorkBook := xlApp.Workbooks.Add;
xlWorkBook.ActiveSheet.Buttons.Add(10, 10, 80, 30).Select;
xlWorkBook.Selection.OnAction := 'Macro1';

没有Office COM自动化的Delphi文档。您必须使用MSDN文档并自行将其转换为Delphi。