Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Удаление объектов по щелчку - с определением координат их центров
 
#1
28.03.2019 16:29:54
Доброго дня, друзья.
У меня возникла такая проблема...

На листе находится много объектов.
Как макросом - удалять тот объект по которому щелкнули - с выпиской координаты его центра в ячейки E2 и E3 ?

И тут все дело в том, что таких объектов очень много - и нужно как-то навесить этот макрос - на все объекты в диапазоне D6:N30.
 
 
 
#2
28.03.2019 16:43:49
Например, как Здесь
 
 
 
#3
28.03.2019 16:53:59
RAN, что-то крутое... надо глянуть.

Чебурашка - это круто !
 
 
 
#4
28.03.2019 17:08:37
RAN, в общем я посмотрел - все круто - особенно крокодил Гена.

Может быть немного отдаленно похоже на мою задачу,но все равно немного не то.

Как я понял  sha.OnAction = "PicMove" - это видимо навешивание макросов на все фигуры.
И потом у вас фигуры - не удаляются, а куда-то двигаются (вправо, влево и т.д.)
А у меня вопрос - именно об удалении.
 
 
 
#5
28.03.2019 17:54:41
У вас в инструкции написано, как копать яму зеленой лопатой. А у меня лопата красная. Как быть?
 
 
 
#6
29.03.2019 05:01:05
RAN, я хочу сказать что там нет такого макроса о котором я спрашивал.
 
 
 
#7
29.03.2019 15:20:40
Код
Sub Макрос1()
    For Each Q In ActiveSheet.Shapes
        Q.OnAction = "qwer"
    Next Q
End Sub

Sub qwer()
    ActiveSheet.Shapes(Application.Caller).Delete
End Sub
Сначала запустить Макрос1
Надеюсь с координатами объекта разберёшься?
Изменено: Александр Моторин - 29.03.2019 15:24:25
 
 
 
Страницы: 1
Наверх