Расположение Control в правом CommandBars

Расположение Control в правом CommandBars, Не отражаются списки

Пользователь

Сообщений: 133 Регистрация: 29.01.2014

15.11.2014 21:27:55

Доброго все дня!
Не могу вставить в правый CommandBars выпадающий список, в чем ошибка?

Код
With Application.CommandBars.Add(Temporary:=True) With .Controls

Код

     With .Add(Type:=msoControlDropdown, Temporary:=True)
       .Style = msoComboLabel 'msoButtonAutomatic
       .AddItem "Раз"
       .AddItem "Два"
       .AddItem "Три"
       .OnAction = "Макрос"
       .Width = 220
       .BeginGroup = True
       .ListIndex = 1
     End With

Код
End With

Код
.Name = "Правая Панель" .Position = msoBarRight .Visible = True

Код
End With

Кнопки отражает, а списки и TextEdit не хочет, причем не ругается, а просто игнорирует.

Изменено: sofi - 15.11.2014 21:36:26

Doober

Пользователь

Сообщений: 2326 Регистрация: 09.04.2013

15.11.2014 22:44:41

Цитата
просто игнорирует

И правильно делает.
Где вы видели повернутый на 90 градусов комбобокс,его заставляют еще и раскрываться.

sofi Пользователь Сообщений: 133 Регистрация: 29.01.2014	#3 16.11.2014 02:34:00 Например, в контекстном меню! Открывается в право/лево. Изменено: sofi - 16.11.2014 02:42:41