Delphi 如何使用OLE将按钮添加到Excel

我使用的OLE方法如下：

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

如何将按钮添加到Excel

如何在这个按钮上分配一个exist MACO

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

---

Thx.

我通过录制一个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。

有关在Delphi中使用OLE自动化的有用信息，请参阅。我不为自己工作。弹出错误OLE:找不到方法“Selection”。