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

Изменение размеров изображения пропорционально значениям ячеек на листе 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 КБ1731 неделя 4 дня назад

Комментарии

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

Содержание этого поля является приватным и не предназначено к показу.
To prevent automated spam submissions leave this field empty.
CAPTCHA
Подтвердите, пожалуйста, что вы - человек:
   ___    _   _           _____  __   __  _  _   
/ _ \ | \ | | __ _ |_ _| \ \ / / | || |
| | | | | \| | / _` | | | \ V / | || |_
| |_| | | |\ | | (_| | | | | | |__ _|
\__\_\ |_| \_| \__,_| |_| |_| |_|
Введите код, изображенный в стиле ASCII-арт.

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

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