excel - VBA：为表单控件组合框分配默认值

Question

我试图在表单控件中默认显示文本Selectcombo box。我尝试了以下方法，但似乎不起作用。有人可以建议我做错了什么吗？

选项1：

 Activesheet.shapes("choose_selection").text = "Select your choice"

选项 2：

 Activesheet.shapes("choose_selection").controlformat.text = "Select your choice" 

但我得到这个错误

Answer 1

在组合框中设置默认值

ListIndex 属性使用索引号设置当前选定的项目。ListIndex = 1 设置数组中的第一个值。

Sub ChangeSelectedValue()
  With Worksheets("Sheet1").Shapes("Combo Box 1")
  .List = Array("select your choice","Apples", "Androids", "Windows")
  .ListIndex = 1
 End With
End Sub

希望它会有所帮助。

Answer 2

尝试首先定义DropDown对象，然后在其中显示文本。

注意：DropDown是指VBA对象Form_Control ComboBox。

Dim drpdown As DropDown

' set the drop-down object
Set drpdown = ActiveSheet.DropDowns("choose_selection")

' modify the drop-down properties
With drpdown
    .Text = "Select your choice"
End With