Проблема с контекстным меню

[bing]

условия:
в ячейках таблицы (excel) хранятся имена файлов
задача:
в меню правой кнопки мыши добавить пункт, чтобы посылать эти файлы на печать.

сделал так:

Код: Выделить всё

Private Declare Function ShellExecMy Lib "shell32.dll" _
Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim filename As String
filename = ActiveCell.Text
Application.CommandBars("Cell").Reset
With Application.CommandBars("Cell").Controls
    With .Add(Type:=msoControlButton, Temporary:=True)
         .Caption = "P&rint"
         .BeginGroup = True
         .OnAction = ShellExecMy(0, "Print", "c:\" & filename, nil, nil, SW_HIDE)
    End With
End With

End Sub


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

где грабли?
спасибо.

[Bagathur]

Думаю, вся проблема в этом - BeforeRightClick, а именно в первой части слова.

[GSerg]

Bagathur, а ты код процедуры смотрел или только первую часть слова?..

[bing]

Bagathur, а ты код процедуры смотрел или только первую часть слова?..

а что надо поправить в самой процедуре, чтобы она работала как надо?

[GSerg]

А ты сам как думаешь, что вообще полагается присваивать свойству OnAction?

[bing]

А ты сам как думаешь, что вообще полагается присваивать свойству OnAction?

сам я ничего не думаю, к сожалению, так как VBA толком не знаю (потому и спрашиваю).
из описания следует, что OnAction - это события, которые происходят после выбора созданного пункта меню.
но вот почему эти события происходят без выбора этого пункта, мне не ясно.

[GSerg]

Из описания следует, что OnAction - это куда надо записать имя макроса, который будет выполнен при выборе пунта меню.

Скажи, bing, а известна ли тебе разница между 1 и "1"?

[bing]

Из описания следует, что OnAction - это куда надо записать имя макроса, который будет выполнен при выборе пунта меню.

http://www.vbstreets.ru/VBA/Articles/65843.aspx
Т.к. пункт меню через свойство OnAction может быть связан с процедурой не имеющей входных параметров, а процедура без входных параметров в VBA для Word и Excel является макросом[/quote]

тогда исправьте "может быть" на "должен быть".

Скажи, bing, а известна ли тебе разница между 1 и "1"?

известна.

[GSerg]

http://www.vbstreets.ru/VBA/Articles/65843.aspx
Т.к. пункт меню через свойство OnAction может быть связан с процедурой не имеющей входных параметров, а процедура без входных параметров в VBA для Word и Excel является макросом

тогда исправьте "может быть" на "должен быть".

Не исправим, т.к. пункт может и не быть связан с процедурой. Пустой пункт бывает.

Скажи, bing, а известна ли тебе разница между 1 и "1"?

известна.

Тогда, судя по логике, в исходном коде должна была бы быть строчка OnAction = "ShellExecMy(0, ""Print"", ""c:"" & filename, nil, nil, SW_HIDE)" (это неверно, но всё же по логике такого присвоения подходит), но, однако же, там OnAction = ShellExecMy(0, "Print", "c:" & filename, nil, nil, SW_HIDE)...


Да, и что такое nil?