请教msoControlComboBox的应用

henterwu

Sub AddCombo() Dim iBar As CommandBar Dim iCombo As CommandBarControl Set iBar = CommandBars.Add("iBar") With iBar .Controls.Add Type:=msoControlComboBox .Visible = True End With Set iCombo = CommandBars("iBar").Controls(1) With iCombo .AddItem "1", 1 .AddItem "2", 2 .AddItem "3", 3 .AddItem "4", 4 .OnAction = "iwrite" End With End Sub Sub iwrite() Select case ？？？？ Case 1 Selection.TypeText Text:="1" Case 2 Selection.TypeText Text:="2" Case 3 Selection.TypeText Text:="3" End Select

End Sub

请教高手如何使选择后，能输入相应的文本到当前文档。

谢谢！！！

henterwu

？？？？：iCombo.Text

谢谢各位的关注。

守柔

请参考：

Sub iwrite() Dim UserChoice As Byte UserChoice = CommandBars("iBar").Controls(1).ListIndex Select Case UserChoice Case 1 Selection.TypeText Text:="1" Case 2 Selection.TypeText Text:="2" Case 3 Selection.TypeText Text:="3" End Select End Sub

henterwu

谢谢，守柔老师！！！