Пропорциональное изменение размеров изображения в зависимости от значения в ячейках

Изменение размеров изображения пропорционально значениям ячеек на листе Excel

Этот простейший макрос позволяет пропорционально изменять размеры изображения (высоту и ширину) в зависимости от значений ячеек B3 и B4.
Попробуйте изменить значения в этих ячейках (выделенных желтым цветом) - и автоматически изменятся размеры изображения.

Значения в ячейках указываются в диапазоне от 500 до 2500 (используется проверка вводимых значений - допускается ввод чисел только в указанном диапазоне).
При этом размеры картинки изменяются в пределах от 75 х 75 до 150 х 150.

Используется обработка событий листа - при изменении ячеек производится корректировка размеров изображения:

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Address
        Case [b3].Address    ' изменяем высоту
            h = 75 * (Val([b3]) + 1500) / 2000
            [pic].Height = h: [c3] = h
        Case [b4].Address    ' изменяем ширину
            w = 75 * (Val([b4]) + 1500) / 2000
            [pic].Width = w: [c4] = w
    End Select
End Sub

Кроме того, в соседние ячейки (С3 и С4) заносятся новые размеры картинки.

ВложениеРазмерЗагрузкиПоследняя загрузка
ResizePicture.xls69.5 КБ17513 недель 6 дней назад

Комментарии

Отправить комментарий

Содержание этого поля является приватным и не предназначено к показу.
CAPTCHA
Подтвердите, пожалуйста, что вы - человек:
  _   _                   _    ___    _     
| | | | __ __ _ __ | | / _ \ | |__
| |_| | \ \ / / | '_ \ | | | (_) | | '_ \
| _ | \ V / | | | | | | \__, | | |_) |
|_| |_| \_/ |_| |_| |_| /_/ |_.__/
Введите код, изображенный в стиле ASCII-арт.

Не получается применить макрос? Не удаётся изменить код под свои нужды?

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