VBA：无法将项目添加到组合框

Question

I am trying to add some items via VBA into a dropdown list. Whenever I set the combo variable I get a 13 error. I don't get to set the combo variable as a combobox from the libro sheet, therefore I cannot use the combobox.additem property, how can I set that straight?

Sub Prueba()
Dim libro As Worksheet
Dim combo As ComboBox

Set libro = ActiveWorkbook.Sheets("Tabla Paquetes")
Set combo = libro.Shapes("ComboBox1")

    With combo
        .AddItem "Paris"
        .AddItem "New York"
        .AddItem "London"
    End With

End Sub

Answer 1

Your combo box is NOT a shape, so your code won't find it in the Shapes collection.

Instead, do the following:

Sub Prueba()

    Dim libro As Worksheet
    Dim combo As ComboBox

    Set libro = ActiveWorkbook.Sheets("Tabla Paquetes")
    'Set combo = libro.Shapes("ComboBox1")

    With ComboBox1 ' assuming the name of your control is "ComboBox1"
        .AddItem "Paris"
        .AddItem "New York"
        .AddItem "London"
    End With

End Sub