PPT VBA 中界面交互问题

Sub OnSlideShowPageChange()
    On Error Resume Next

    pth = ActivePresentation.path & "\案例\"
    
    If ActivePresentation.SlideShowWindow.View.CurrentShowPosition = 2 Then
        Slide2.设备大类.Clear
        Slide2.设备小类.Clear
        Slide2.案例序号.Clear

        Slide2.设备大类.AddItem "承压类特种设备"
        Slide2.设备大类.AddItem "机电类特种设备"

        Slide2.案例序号.AddItem "案例1"
        Slide2.案例序号.AddItem "案例2"
        Slide2.案例序号.AddItem "案例3"
        Slide2.案例序号.AddItem "案例4"
    
        Slide2.案例序号.Text = "案例1"
        Slide2.设备大类.Text = "承压类特种设备"
        Slide2.设备小类.Text = "锅炉"

    ElseIf ActivePresentation.SlideShowWindow.View.CurrentShowPosition = 4 Then
        Slide4.设备类型.Clear
        Slide4.事故类型.Clear
        
        Slide4.设备类型.AddItem "锅炉"
        Slide4.设备类型.AddItem "压力容器"
        Slide4.设备类型.AddItem "压力管道"
        Slide4.设备类型.AddItem "电梯"
        Slide4.设备类型.AddItem "起重机械"
        Slide4.设备类型.AddItem "客运索道"
        Slide4.设备类型.AddItem "大型游乐设施"
        Slide4.设备类型.AddItem "场（厂）内专用机动车辆"
        
        Slide4.设备类型.Text = "锅炉"
        Slide4.事故类型.Text = "锅炉缺水"
    
    End If
    Call Slide2.播放
End Sub

Sub OnSlideShowTerminate()

        Slide2.设备大类.Clear
        Slide2.设备小类.Clear
        Slide2.案例序号.Clear
    
        Slide4.设备类型.Clear
        Slide4.事故类型.Clear

End Sub

Private Sub 设备大类_Change()
    
    Slide2.设备小类.Clear
    
    If 设备大类 = "承压类特种设备" Then
        Slide2.设备小类.AddItem "锅炉"
        Slide2.设备小类.AddItem "压力容器"
        Slide2.设备小类.AddItem "压力管道"
    
    ElseIf 设备大类 = "机电类特种设备" Then
        Slide2.设备小类.AddItem "电梯"
        Slide2.设备小类.AddItem "起重机械"
        Slide2.设备小类.AddItem "客运索道"
        Slide2.设备小类.AddItem "大型游乐设施"
        Slide2.设备小类.AddItem "场（厂）内专用机动车辆"
    
    End If
    
    Slide2.设备小类.Text = Slide2.设备小类.List(0)
    
    Call Slide2.播放
End Sub

 为何从Slide.1进入Slide.2时，第一次进入Slide.2的组合框可以运行代码，第二次进入组合框就为空白了？

建立录制宏之后直接调用

您好，我是有问必答小助手，您的问题已经有小伙伴解答了，您看下是否解决，可以追评进行沟通哦~

如果有您比较满意的答案 / 帮您提供解决思路的答案，可以点击【采纳】按钮，给回答的小伙伴一些鼓励哦～～

ps:问答VIP仅需29元，即可享受5次/月 有问必答服务，了解详情>>>https://vip.csdn.net/askvip?utm_source=1146287632

非常感谢您使用有问必答服务，为了后续更快速的帮您解决问题，现诚邀您参与有问必答体验反馈。您的建议将会运用到我们的产品优化中，希望能得到您的支持与协助！

速戳参与调研>>>https://t.csdnimg.cn/Kf0y