 Этот простейший макрос позволяет пропорционально изменять размеры изображения (высоту и ширину) в зависимости от значений ячеек B3 и B4. Значения в ячейках указываются в диапазоне от 500 до 2500 (используется проверка вводимых значений - допускается ввод чисел только в указанном диапазоне). Используется обработка событий листа - при изменении ячеек производится корректировка размеров изображения: 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) заносятся новые размеры картинки.
|
|||||||
Комментарии
Отправить комментарий