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

Question

我正在尝试通过VBA将一些项目添加到下拉列表中。 每当我设置组合变量时，都会出现13错误。 我没有从libro表中将combo变量设置为combobox，因此无法使用combobox.additem属性，如何设置该值呢？

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

您的组合框不是形状，因此您的代码在Shapes集合中找不到。

而是，请执行以下操作：

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