delphi - 如何使用 OLE 在 Excel 中添加按钮

Question

我使用这样的 OLE 方法:

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

如何在 Excel 中添加按钮？

以及如何在这个按钮上分配一个存在的宏？

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

谢谢。

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。