Самоучитель VBA

ПХЯ 8 6 Новая панель инструментов и диалоговое окно Настройка



пХЯ. 8.6. Новая панель инструментов и диалоговое окно Настройка


Шаг 5

Раскройте вкладку Команды (Commands) диалогового окна Настройка (Customize) и перетащите на новую панель нужные кнопки из списка Команды (Commands). Итак, панель инструментов создана (Рисунок 8.7). Программно та же панель инструментов создается следующими инструкциями:



Application. CommandBars

.Add (Name :=" Моя панель" )

.Visible = True Application. CommandBars ( "Моя панель")

. Controls .Add Type : =msoControlButton, Id:=23, Before:=l Application. CommandBars ( "Моя панель")

. Controls. Add Type:=msoControlButton, Id:=211, Before:=2 Application. CommandBars ( "Моя панель").Controls.

Add Type:=msoControlButton,

Id:=1031, Before :=3

Application. CommandBars ("Моя панель") .Controls.

Add Type:=msoControlButton, Id:=166, Before:=4

По указанному выше алгоритму, опустив шаги со второго по четвертый, можно также добавлять элементы управления в уже существующие панели инструментов.



Содержание  Назад  Вперед