От компьютерного программирования я далек, однако хитросплетения судьбы, привели меня к подобной необходимости.
1. Возможно ли отследить правый клик по фигуре (Rectangle)?
По ячейке, это можно сделать через worksheet_BeforeRightClick, а по фигуре/рисунку ничего подобного не нашел.
2. Если таким образом запустить нельзя, то подскажите макрос, который бы запускался при выделении фигуры, занося часть ее имени в переменные.
Например:
Выделена фигура "Rectangle_26_74"
Занести в переменную X цифры 26 как число
занести в переменную Y цифры 74 как число
3. Если и при выделении фигуры запустить макрос нельзя, то может есть возможность отследить координаты правого клика?
4. Ну и на последок, может в этом непростом деле помочь событие AppEvent_SheetBeforRightClick?
А то у меня выдает ошибку "user-defined type not defined"
при объявлении
Пробавал так
Тоже не вышло. В общем разобраться в событии не смог. Срабатывает ли оно при клике по рисунку и что возвращает в Target?
Собственно код
1. Возможно ли отследить правый клик по фигуре (Rectangle)?
По ячейке, это можно сделать через worksheet_BeforeRightClick, а по фигуре/рисунку ничего подобного не нашел.
2. Если таким образом запустить нельзя, то подскажите макрос, который бы запускался при выделении фигуры, занося часть ее имени в переменные.
Например:
Выделена фигура "Rectangle_26_74"
Занести в переменную X цифры 26 как число
занести в переменную Y цифры 74 как число
3. Если и при выделении фигуры запустить макрос нельзя, то может есть возможность отследить координаты правого клика?
4. Ну и на последок, может в этом непростом деле помочь событие AppEvent_SheetBeforRightClick?
А то у меня выдает ошибку "user-defined type not defined"
при объявлении
Код |
---|
Dim myAppEvent As New cl_AppEvents |
Пробавал так
Код |
---|
Set myAppEvent.AppEvent = CreateObject("Application") |
Тоже не вышло. В общем разобраться в событии не смог. Срабатывает ли оно при клике по рисунку и что возвращает в Target?
Собственно код
Код |
---|
Sub InitializeAppEvent() Set myAppEvent.AppEvent = Application End Sub Private Sub AppEvent_SheetBeforRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) MsgBox "Правый клик" End Sub |