2014-02-09
676
Next
End If
Exit For
Удаление панели инструментов
End Sub
Замечание:
Если Вы выполните это задание с самого начала (т.е. при включенном макрорекордере нарисуете плюс в кружочке), Ваш код будет несколько отличаться от приведенного примера, так как и размер, и месторасположения Вашего рисунка будут иными.
Задание: введите данный код в книгу Плюс в кружочке.xls и запустите его. Убедитесь, что панель инструментов Вставка знака создана.
Чтобы удалить панель инструментов можно воспользоваться следующим кодом:
Sub УдалениеПанелиИнструментов()
For Each Bar In Application.CommandBars
If Bar.Name = “Вставка знака” Then
Bar.Delete
Задание: введите данный код в книгу Плюс в кружочке.xls и запустите его. Убедитесь, что панель инструментов Вставка знака удалена.
12.12.5. Пример создания/удаления меню
Теперь создадим меню Вставка знака, которое расположим в самом конце строки меню рабочего листа (после меню Справка).
Рис. 12‑25. Добавление меню Вставка знака
Листинг программы:
Sub ДобавлениеМеню()
|
|
|
Set myMenuBar = CommandBars("Worksheet Menu bar")
'1. Добавляем вложенное меню:
Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, _
Temporary:= True)
'2. Задаем текст надписи:
newMenu. Caption = "Вставка знака"
'3. Во вложенное меню добавляем кнопку:
Set ctrl1 = newMenu.Controls _
.Add(Type:=msoControlButton, ID:=1)
'4. На кнопке должна быть только надпись:
ctrl1. Style = msoButtonCaption
'5. Добавляем надпись:
ctrl1. Caption = "Плюс в кружочке"
'6. Создаем всплывающую подсказку:
ctrl1. TooltipText = "Вставка специального символа"
'7. При щелчке по кнопке выполняется процедура Символ:
ctrl1. OnAction = "Символ"
