能否用VBA创建绑定Office Script的按钮？求实现方法

可以通过VBA创建并绑定Office Script的按钮，虽然录制宏无法捕获该操作，但可以通过操作形状的OnAction属性关联Office Script的ID来实现。

实现步骤 #

1. 获取目标Office Script的ID

   • 手动插入一个Office Script按钮到工作表
   • 打开VBA编辑器，在立即窗口输入：

     ?ActiveSheet.Shapes("你的按钮名称").OnAction
     

   • 回车后会得到类似OfficeScript.xxxxxx-xxxx-xxxx-xxxx-xxxxxxxxx的字符串，这就是该Script的唯一ID。

   也可以用VBA枚举所有可用的Office Script：

   Sub ListAllOfficeScripts()
       Dim script As OfficeScript
       For Each script In OfficeScripts.GetScripts()
           Debug.Print "Script名称: " & script.Name & " | ID: " & script.Id
       Next
   End Sub
   

2. 用VBA创建按钮并绑定Script
   使用以下代码创建按钮并关联指定的Office Script：

   Sub AddOfficeScriptButton()
       Dim ws As Worksheet
       Dim scriptBtn As Shape
       Dim targetScriptId As String
       
       ' 替换为你的目标工作表和Script ID
       Set ws = ThisWorkbook.Worksheets("Sheet1")
       targetScriptId = "OfficeScript.xxxxxx-xxxx-xxxx-xxxx-xxxxxxxxx"
       
       ' 创建按钮形状（位置、尺寸可自行调整）
       Set scriptBtn = ws.Shapes.AddFormControl(xlButtonControl, Left:=100, Top:=100, Width:=150, Height:=30)
       scriptBtn.TextFrame2.TextRange.Text = "执行采集脚本" ' 自定义按钮文字
       
       ' 绑定Office Script
       scriptBtn.OnAction = targetScriptId
   End Sub
   

3. 集成到工作表重生成流程
   在你的VBA工作表重生成代码末尾，调用AddOfficeScriptButton即可随其他内容一同创建绑定好的Office Script按钮，无需手动保留旧按钮。

注意事项 #

• 确保使用的是Office 365订阅版Excel，且已启用Office Scripts功能
• 运行VBA宏时需启用宏权限，同时Office Scripts的权限设置需允许从宏触发
• 如果需要创建多个按钮，可循环调用上述代码，更换不同的Script ID和按钮位置

内容的提问来源于stack exchange，提问作者thomasb25