如何使用OLE将button添加到Excel

我使用这样的OLE方法：

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

如何添加button到Excel？

以及如何分配一个存在的马克在这个button？

我在哪里可以findDelphi-OLE-Office文档？

谢谢。

Answer 1

我通过录制一个VBAmacros，然后将其粘贴到你的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。