Обработка событий от графических объектов в Excel

[vint44]

Здраствуйте! Можно ли в Excel 2000 обработатать события получаемые от графических объектов (в частности автофигур) такие как активация объекта, деактивация, щелчок мышью, двойной щелчок и т.п.
И еще вопрос, как узнать какой объект активен на данный момент, т.е. есть ли свойство аналогичное свойству свойства ActiveSheet? Спасибо.

[Krasavica]

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

[GSerg]

Событий нет.
Активную весчь всегда возвращает Selection, даже если это shape.

[Vitaly1]

Не правдо, одно событие все таки у автофигуры есть. нажимаешь правую клавишу на автофигуре и назначаешь макрос или создаешь новый.

Вот пример кода по щелчку по автофигуре(единственное событие), она меняет свой цвет.

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

Sub Прямоуг1_Щелкнуть()
Static i
ActiveSheet.Shapes("Rectangle 1").Select
i = i + 1
Selection.ShapeRange.Fill.ForeColor.SchemeColor = i
'снимаем выделение с автофигуры, что бы событие сработало еще раз
ActiveSheet.Cells(1, 1).Select
End Sub

Selection.Name - имя выделенного объекта