как?рисунок?

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Ответить
Аватара пользователя
DzenDen1
Сообщения: 38
Зарегистрирован: 29 ноя 2007, 12:03

Доброе утро всем !!!
Подскажите пл. как на VB
разместить рисунок по координатам,
напр верхний левый угол A1 -начало картинки(рисунок)
нижний правый угол В3 - конец.???
:confused:

С уважением...
Аватара пользователя
DzenDen1
Сообщения: 38
Зарегистрирован: 29 ноя 2007, 12:03

в Excel ???
bi-lya
Сообщения: 97
Зарегистрирован: 07 июн 2007, 14:08

Пробуйте так:

Код: Выделить всё

With Shapes(1)
  .Top = Range("a1").Top
  .Left = Range("a1").Left
  .Height = Range("a1:c3").Height
End With
Если все-таки нужно растянуть рисунок точно по этому диапазону, то определяем соотношение ширины рисунка к ширине диапазона и используем

Код: Выделить всё

.ShapeRange.ScaleWidth
Аватара пользователя
DzenDen1
Сообщения: 38
Зарегистрирован: 29 ноя 2007, 12:03

Вчерась до этого дошел.
Спасибо bi-lya за отклик.
Тему можно считать закрытой.
Ответить