VBA：將默認值分配給窗體控件組合框

Question

我試圖顯示文本默認情況下選擇在窗體控件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是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