PPT中ComboBox触发424对象必需错误，是否需设置对象？

Hey there, let's work through that frustrating 424 error and get your date-selection ComboBox up and running smoothly. The core issue here boils down to how your code references the ComboBox object—here's a breakdown of the fixes:

1. Your Sub Can't Locate the ComboBox Object #

Your AddDropDownItemsFromDate sub directly calls ComboBox1, but PPT's form controls are tied to specific slides. If this sub lives in a general module (like Module1) instead of the slide's code module that contains ComboBox1, VBA can't find the control, hence the "Object required" error.

The Fix: Pass the ComboBox as a Parameter #

Make your sub reusable and object-safe by passing the target ComboBox directly as an argument. Here's the revised code:

' This event MUST be stored in the code module of the slide holding ComboBox1
Private Sub ComboBox1_GotFocus()
    If ComboBox1.ListCount = 0 Then
        ' Pass the specific ComboBox to the sub so it knows exactly which control to update
        Call AddDropDownItemsFromDate(ComboBox1, 1)
    End If
End Sub

' This sub can live in a general module or the slide's module
Sub AddDropDownItemsFromDate(targetCombo As ComboBox, i As Integer)
    Dim nIndex As Integer
    Dim Selector As Integer
    Selector = i
    
    Select Case Selector
        Case 1
            ' Optional: Clear existing items to avoid duplicates if focus triggers again
            targetCombo.Clear
            For nIndex = 0 To 3600
                targetCombo.AddItem DateAdd("d", nIndex, CVDate("10/02/2007"))
            Next nIndex
        Case 2
            ' Add your second ComboBox logic here, e.g.:
            ' targetCombo.Clear
            ' For nIndex = ... ' Your custom date range for the second combo
    End Select
End Sub

2. Verify Your Control's Exact Name #

Typos happen! Double-check that the combo box on your slide is actually named ComboBox1:

• Open the Developer tab in PPT
• Select the combo box
• Hit F4 to open the Properties window
• Confirm the Name field matches exactly (no typos, extra spaces, or wrong numbers like ComboBox2)

3. Ensure Your Event Code is in the Right Module #

The ComboBox1_GotFocus event procedure has to live in the code module of the slide that holds the ComboBox. If it's in a general module, the event won't fire, and you'll still get object errors. To access the slide's module:

• Right-click the slide thumbnail in the left pane
• Select View Code
• Paste the event procedure here

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