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

我使用像这样的OLE方法：

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

如何在Excel中添加按钮？

以及如何在此按钮上分配一个存在的marco？

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

谢谢。

最佳答案

我通过记录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。