Проверка на выделенный рисунок

Вход

Регистрация

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

= Мир MS Excel/Проверка на выделенный рисунок - Мир MS Excel

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

Проверка на выделенный рисунок (Макросы/Sub)

Проверка на выделенный рисунок

rever27

Дата: Воскресенье, 24.05.2015, 10:53 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 141

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

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

Excel 2010

Подскажите.
Нужно изменить свойства рисунка и сдвинуть. Делаю через этот код и кнопкой макроса.

[vba]

Код

Selection.Placement = xlMoveAndSize
Selection.ShapeRange.IncrementTop 0.8823622047

[/vba]

Как можно сделать проверку на выделенное?
Т.е. если выделен рисунок, то применяем макрос, если нет - End

(Ибо без проверки постоянно выдает ошибку 438 при выделении ячейки)

Ответить

KSV

Дата: Воскресенье, 24.05.2015, 11:30 | Сообщение № 2

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

Ранг: Ветеран

Сообщений: 770

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

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

Excel 2013

[vba]

Код

If TypeOf Selection Is Picture Then
     ' выбран рисунок
     Selection.Placement = xlMoveAndSize
     Selection.ShapeRange.IncrementTop 0.8823622047
End If

[/vba]