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

Изменение размеров изображения пропорционально значениям ячеек на листе 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) заносятся новые размеры картинки.

Вложения:

Комментарии

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

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

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

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