Выписка названия и текста удаляемой фигуры

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Выписка названия и текста удаляемой фигуры - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выписка названия и текста удаляемой фигуры (Макросы/Sub)

Выписка названия и текста удаляемой фигуры

perven

Дата: Воскресенье, 10.12.2017, 19:05 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 67

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Добрый вечер.
Помогите с решением проблемы.

На листе находится несколько фигур.
Рядом находится таблица J3:K10.

Подскажите как при щелчке на фигуру - удалить ее, перед этим вписав название фигуры и текст в ней - в таблицу J3:K10 ?
(Макрос по идее должен быть прикреплен к каждой фигуре)

К сообщению приложен файл: 4886655.xls (42.5 Kb)

Ответить

RAN

Дата: Воскресенье, 10.12.2017, 20:16 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

[vba]

Код

Sub q()
    With ActiveSheet
        Set cl = .Cells(.Rows.Count, "J").End(xlUp).Offset(1)
        cl.Value = Application.Caller
        cl.Next.Value = .DrawingObjects(Application.Caller).Caption
        .DrawingObjects(Application.Caller).Delete
    End With
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

perven

Дата: Воскресенье, 10.12.2017, 20:37 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 67

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

RAN, большое спасибо. Все работает.

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выписка названия и текста удаляемой фигуры (Макросы/Sub)

Страница 1 из 1
1