VBA：将默认值分配给窗体控件组合框

Question

我试图在窗体控件combo box显示文本“默认情况下选择 combo 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是引用Form_Control ComboBox的VBA对象。

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