Excel VBA触发分配给形状的宏单击

Question

我们有另一家公司提供给我们的电子表格。 VBAProject 受保护，我不知道密码。 在工作表“Main”上有一个 RectangleRoundedCorners 形状，它分配了宏（“CREATE SAP JOB RUN LIST”）。

我们正在尝试使用 VBA 自动化我们的流程，但我们在触发“CREATE SAP JOB RUN LIST”宏时遇到了障碍。

我不知道宏在哪个模块中。由于 VBAProject 受到保护，我无法循环所有 VBA 组件。

由于收到错误消息（在尝试在我自己的工作簿中模拟调用之后），我怀疑宏可能位于“ThisWorkbook”模块中。

Application.Run workbookname!macroname 

不起作用：运行时错误“1004”无法运行宏“workbookname!macroname”。该工作簿中的宏可能不可用，或者所有宏都可能被禁用。

宏未被禁用。

我似乎无法直接用 VBA 调用宏，所以我希望可以模拟对形状的点击。我正在努力寻找合适的代码。

有人可以帮忙吗？

提前致谢

Answer 1

尝试将 Shape 对象的 OnAction 属性传递给 Application.Run...

Application.Run Workbooks("Book1.xlsm").Worksheets("Sheet1").Shapes("Rectangle 1").OnAction

相应地更改对工作簿、工作表和形状的引用。