Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как вставить картинку в ячейки с сохранением пропорций, vba
 
#1
17.06.2014 18:45:32
Здравствуйте, подскажите как вставить картинку в ячейки с сохранением пропорций ?
спасибо


Код
Sub test()
Set Rng = [B4]
Set Rng2 = [D4:H4]
Pic = "http://i.imgur.com/f4nwD27.jpg"
Call ActiveSheet.Shapes.AddPicture(Pic, msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
Call ActiveSheet.Shapes.AddPicture(Pic, msoFalse, msoCTrue, Rng2.Left, Rng2.Top, Rng2.Width, Rng2.Height)
End Sub



Изменено: KUDRIN - 17.06.2014 18:45:52
 
 
 
#2
17.06.2014 19:15:31
Код
Sub test()
  Set rng = [B4]
  Pic = "http://i.imgur.com/f4nwD27.jpg"
  Set p = ActiveSheet.Shapes.AddPicture(Pic, msoFalse, msoCTrue, rng.Left, rng.Top, -1, -1)
  ratio = rng.Width / p.Width
  p.ScaleWidth ratio, msoFalse
  p.ScaleHeight ratio, msoFalse
End Sub
для второй картинки аналогично.
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#3
17.06.2014 19:16:46
эх, опередил
у меня как то так
 
 
 
Страницы: 1
Наверх