OOD
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Troitsky
Цитата: OOD
Цитата:
подскажите можно ли с помощью VBA вставить картинку на определенные координаты листа?
Вот так картинка вставляется по координатам верхнего левого угла выделения:
Код:
ActiveSheet.Pictures.Insert "D:\73.gif"
А так, для того чтобы сохранить пропорции, нужно знать высоту и ширину картинки, т.к. все аргументы функции являются обязательными:
Код:
ActiveSheet.Shapes.AddPicture "D:\73.gif", True, True, 20, 30, 80, 90
Способа вставить картинку по координатам, не зная предварительно ширину и высоту картинки, я не знаю. Хотя, в первом случае никто не мешает картинку после вставки передвинуть в нужное место используя
Код:
.ShapeRange.IncrementLeft
.ShapeRange.IncrementTop
или
Код:
.Left
.Top |
Большое, спасибо вы очень помогли , очень очень, но не могли бы вы ещё помочь можно ли сделать так, чтобы имя "D:\73.gif" т.е. 73.gif бралось из TextBox ?
т.е. чтобы пользователь ввел в TextBox нужную ему картинку, а она уже вставилась после выполнения макроса...
вот сделал вот так:
Код:
ActiveSheet.Pictures.Insert TextBox1.Value
ActiveSheet.Shapes.AddPicture TextBox1.Value, True, True, 97, 7, 85, 114
|
Всё работает, всё добавляеться, но после выполнения
ActiveSheet.Pictures.Insert TextBox1.Value
картинка дублируется 
|
Всего записей: 3385 | Зарегистр. 20-05-2006 | Отправлено: 13:57 20-11-2006 | Исправлено: OOD, 14:58 20-11-2006 |
|
