Событие ItemRemoved
Данное событие происходит после удаления ссылки из проекта.
Синтаксис
Sub объект_ItemRemoved(ByVal элемент As Reference)
Обязательный аргумент элемент указывает объект Reference, который был удален.
Пример события "Нажатие кнопки" (Click)
В данном примере проиллюстрировано, как можно написать программу для процедуры события "Нажатие кнопки" (Click) с помощью инструкций WithEvents и Set. Следует отметить, что вместо пункта меню Сервис в имени события "Нажатие кнопки" (Click) используется ссылка на объект ce.
Private WithEvents ce As CommandBarEvents
Sub Test()
Dim c As CommandBarControl
Set c = Application.VBE.CommandBars("Сервис").Controls(1)
Set ce = Application.VBE.Events.CommandBarEvents(c)
End Sub
Private Sub ce_Click(ByVal CommandBarControl As Object, Handled As Boolean, CancelDefault As Boolean)
' Место для инструкций обработки события.
End Sub
