PPT VBA 中界面交互问题

Question

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的组合框可以运行代码，第二次进入组合框就为空白了？

 

Answer 1

建立录制宏之后直接调用