使用VBA判断PowerPoint分组选项按钮选中状态并设置对应变量

• 原有语法逻辑完全错误：myDocument.Shapes.GroupName = OptionGroup2 是布尔判断表达式，仅返回True/False，无法作为Select Case的判断依据，同时Shapes集合不存在顶层GroupName属性，是触发438错误的直接原因
• 逻辑匹配错误：后两段Select Case都指向OptionGroup1，完全没有用到你需求中的OptionGroup3，赋值逻辑错位
• PPT的ActiveX选项按钮分组通过每个控件的GroupName属性定义，无法直接通过形状集合获取指定组的选中项，需要遍历同组控件判断选中状态

你需要先确保幻灯片上的所有选项按钮都是ActiveX控件，且每组按钮的「GroupName」属性已分别设置为OptionGroup1、OptionGroup2、OptionGroup3，每组内4个按钮按你需要的赋值顺序对应序号1-4。

Sub 启动按钮点击事件()
    Dim sld As Slide
    Dim ACLDelay As Integer, RunInt As Integer, MODDelay As Double
    
    Set sld = ActivePresentation.Slides(1) ' 对应你的第一页幻灯片
    
    ' 给OptionGroup2对应变量ACDelay赋值
    Select Case GetSelectedOptionIndex(sld, "OptionGroup2")
        Case 1: ACLDelay = 1
        Case 2: ACLDelay = 2
        Case 3: ACLDelay = 3
        Case 4: ACLDelay = Int((4 * Rnd) + 1)
    End Select
    
    ' 给OptionGroup1对应变量RunInt赋值
    Select Case GetSelectedOptionIndex(sld, "OptionGroup1")
        Case 1: RunInt = 15
        Case 2: RunInt = 60
        Case 3: RunInt = 30
        Case 4: RunInt = 5
    End Select
    
    ' 给OptionGroup3对应变量MODDelay赋值（原有代码写错成了OptionGroup1，这里修正）
    Select Case GetSelectedOptionIndex(sld, "OptionGroup3")
        Case 1: MODDelay = 1.5
        Case 2: MODDelay = 1
        Case 3: MODDelay = 2
        Case 4: MODDelay = 0.5
    End Select
    
    ' 后续业务逻辑可直接调用上面三个变量
End Sub

' 封装工具函数：传入幻灯片对象和选项组名，返回该组选中项的序号，未选中返回0
Function GetSelectedOptionIndex(sld As Slide, groupName As String) As Integer
    Dim shp As Shape
    Dim optIndex As Integer
    
    optIndex = 0
    For Each shp In sld.Shapes
        ' 只判断ActiveX类型的选项按钮
        If shp.Type = msoOLEControlObject Then
            If TypeName(shp.OLEFormat.Object) = "OptionButton" Then
                If shp.OLEFormat.Object.GroupName = groupName Then
                    optIndex = optIndex + 1
                    If shp.OLEFormat.Object.Value = True Then
                        GetSelectedOptionIndex = optIndex
                        Exit Function
                    End If
                End If
            End If
        End If
    Next shp
    GetSelectedOptionIndex = 0 ' 未选中任何项返回0
End Function

• 如果你每组的选项按钮顺序和序号的对应关系和上面的逻辑不符，可以调整工具函数里的计数逻辑，或者给每个选项按钮设置Tag属性为对应序号，直接读取Tag值返回即可
• 如果使用的是表单控件而非ActiveX控件，需要额外调整判断逻辑，上述代码仅适配ActiveX选项按钮

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