Проверка выделения картинки в документе.

Sla_0412 Пользователь Сообщений: 207 Регистрация: 17.11.2013	#1 19.01.2017 23:23:50 В документе присутствуют фигуры(картинки). Нужно запустить выполение макроса при условии что 1 (а не 2 или более) любая из фигур выделена, если нет то сообщение об ошибке и конец макроса. Как описать условие?

Игорь

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

20.01.2017 04:12:41

Напишите первой строкой в макросе:

Код
MsgBox TypeName(Selection)

и потом выделяйте разные объекты (1 фигуру, несколько фигур, ячейку), запускайте макрос, и смотрите, что будет написано в сообщении

Код

Sub test2()
    ' проверка выделения
    If TypeName(Selection) <> "DrawingObjects" Then Exit Sub

    ' если макрос досюда дошел - значит, выделено несколько графических объектов
    MsgBox "Выделено объектов: " & Selection.Count
End Sub

PS: А я бы просто назначил всем фигурам один и тот же макрос
И макрос бы запускался не после выделения фигуры, а по щелчку на ней.
Узнать макросом, какая фигура его запустила, не проблема.

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Sla_0412 Пользователь Сообщений: 207 Регистрация: 17.11.2013	#3 20.01.2017 07:17:31 Игорь , спасибо!!! То что надо.

Читают тему