Как открыть ComboBox?

[Bagir]

Можно создать свою панель инструментов.
Добавить туда выпадающий список ComboBox.

Set MyBar = CommandBars.Add(ПанельИмя, msoBarTop, , True)
Set MyBox = MyBar.Controls.Add(msoControlComboBox)

А вот как раскрыть его, так же как раскрываем кликом мышки по треугольничку или нажатием кнопки Down после выделения ComboBox'а?

Чтобы список открылся и показал что в нем есть. Программно конечно.

[Sasha_Smirnov]

Обычно открываю так: Alt-‹буква› — попробуйте записать в макрос.

‹буква› — эта та буква, которая в названии команды подчёркнута (перед ней стоит &).

SendKeys "%{в}"

Увы, это не записывается как макрос — пришлось делать в лоб.

[Bagir]

Это мой собственный ComboBox и на моей панели инструментов. Так что Alt-‹буква› не поможет. Есть вариант

Private Sub CommandButton3_Click()
 CommandBars.Item(ПанельИмя).Controls.Item(3).SetFocus
 SendKeys "{DOWN}"
End Sub

Но опять же с использованием SendKeys

[Bagir]

Подведу итог темы:
Вероятно существуют два варианта раскрыть комбик.
1. Послать ему сообщение с помощью SendMessage
2. Выделить комбик и послать нажатие клавиши Down
Первый вариант у меня закончился на получении хендла нашего комбика. Увы, пока не нашел как.
Вариант 2:
Создадим панель инструментов и комбик на ней

Set MyBar = CommandBars.Add(ПанельИмя, msoBarTop, , True)
Set MyBox = MyBar.Controls.Add(msoControlComboBox)
MyBox.Caption = "Название"
MyBox.OnAction = "КомбикДействие"

Чтобы раскрыть комбик, можно сделать так:

MyBox.SetFocus
SendKeys "{DOWN}"

Но если требуется сделать это из процедуры КомбикДействие, то вероятно будет ошибка 'SetFocus' of object '_CommandBarComboBox' failed . Обойти можно к примеру так:

Sub КомбикДействие()
  ...
  ...
  ...
  Application.OnTime Now + TimeValue("00:00:01"), "РаскрытьСписок"
End Sub

Sub РаскрытьСписок()
  MyBox.SetFocus
  SendKeys "{DOWN}"
End Sub

Ну вот как то так. Буду рад если кому нибудь пригодится. Все сказанное выше справедливо для Excel 2003.