如何获取PowerPoint Ribbon下拉控件选中值并在VBA子程序中调用

核心问题原因 #

• 你代码里的department是过程级局部变量，仅在BUReportSelection过程运行时有效，过程结束后变量就被销毁，ExcelImport自然无法读取到值
• XML配置里下拉框的onAction属性值是DReportSelection，但VBA里对应的过程名是BUReportSelection，二者名称不匹配也可能触发异常

修正步骤 #

1. 声明模块级公共变量 #

在VBA编辑器的对应模块最顶部（所有过程代码之前）添加公共变量声明，让整个模块的所有过程都可以访问该变量：

' 模块顶部声明
Public department As String

2. 匹配回调过程名 #

将XML里下拉框的onAction属性值修改为和VBA过程名一致：

<dropDown id="DdropDown" label="Select Dept" onAction="BUReportSelection" getSelectedItemIndex = "DropDown_OnGetSelectedItemIndex">

或者把VBA里的BUReportSelection过程名修改为DReportSelection，二者保持一致即可。

3. 修正过程调用语法 #

原代码里Call Macro4Department 1的语法有误，带参数调用时如果使用Call关键字需要给参数加括号。

修正后的完整VBA代码 #

' 模块顶部声明公共变量
Public department As String

Sub BUReportSelection(control As IRibbonControl, ID As String, selectedindex As Variant)
    department = Choose(selectedindex + 1, "Depart 1", "Depart 2", "Depart 3")
    MsgBox department & " is selected ", vbInformation
End Sub

Sub ExcelImport()
    Select Case department
        Case "Depart 1"
            Call Macro4Department(1)
        Case "Depart 2"
            Call Macro4Department(2)
        Case "Depart 3"
            Call Macro4Department(3)
        Case Else
            MsgBox "请先选择对应部门", vbExclamation
    End Select
End Sub

优化建议（可选） #

如果遇到VBA运行报错导致工程重置、公共变量被清空的情况，可以用演示文稿内置的Variables集合存储选中值，数据不会随VBA工程重置丢失：

' 存储选中值
ActivePresentation.Variables("SelectedDept") = department

' 读取选中值
department = ActivePresentation.Variables("SelectedDept")

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