Добовление собственного меню в Excel

@Yuri2003 · Регистрация: 17.12.2009

Author24 — интернет-сервис помощи студентам

Спецы! подскажите, как добавить в меню, которое всплывает при нажатии правой кнопки мыши на выделенной ячейки рабочего листа в Excel

Например нет проблем добавить в меню рабочей книги в 'Данные' следующим образом, при открытии раб.книги:

Visual Basic

Private Sub Workbook_Activate()
Dim MyMenuBar As Object
Set MyMenuBar = Application.CommandBars('Tools').Controls.Add(Type:=msoControlPopup, Temporary:=True)
With MyMenuBar
    .Caption = 'Данные'
    .Visible = True
    With .Controls
            With .Add(Type:=msoControlButton)
                .Caption = 'Из БД-1'
                .OnAction = 'Макрос1'
            End With
            With .Add(Type:=msoControlButton)
                .Caption = 'из БД-2'
                .OnAction = 'Макрос2'
            End With
    End With
End With
End Sub

заранее спасибо!

@SlavaRus · 08.11.2010, 08:23

Меню под правую клавишу имеет имя 'cell'. Или нужно привязаться к конкретной ячейке?

@SlavaRus 1122 / 233 / 37 Регистрация: 15.03.2010 Сообщений: 709
	08.11.2010, 08:23	2
	Меню под правую клавишу имеет имя 'cell'. Или нужно привязаться к конкретной ячейке? 0