Самоучитель VBA
508 Resource Limit Is Reached

Resource Limit Is Reached

The website is temporarily unable to service your request as it exceeded resource limit. Please try again later.

ПХЯ 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

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









Начало  Назад  Вперед

508 Resource Limit Is Reached

Resource Limit Is Reached

The website is temporarily unable to service your request as it exceeded resource limit. Please try again later.