Дать название картинке

Дмитрий Д

Гость

22.10.2008 22:58:51

Доброго всем вечера!
у меня есть код

Set myDocument = Worksheets("ыпаып")
myDocument.Shapes.AddPicture _
Sheets("ывы").Range("o9"), True, True, Range("v15").Left, Range("v15").Top, 82, 89

который подгружает картинку. Эксель дает ей свое какое-то имя и оно при каждой подгрузке разное. Можно ли макросом задать имя подгружаемому файлу? В описании AddPicture не нашел ничего подходящего.

Заранее огромное спасибо

Юрий М

Модератор

Сообщений: 61089 Регистрация: 14.09.2012

Контакты см. в профиле

22.10.2008 23:25:58

Записал рекордером вставку рисунка из файла. Присвоил затем ему имя, немного изменил позицию: перемещаю его влево до упора.
После этого удаляю рисунок с листа, запускаю макрос - всё появляется заново.
Sub Макрос2()
ActiveSheet.Pictures.Insert("D:\Рис.gif").Select
Selection.Name = "Рисунок 57"
ActiveSheet.Pictures.Left = 0
End Sub

Дмитрий Д Гость	#3 23.10.2008 10:43:20 Юрий, спасибо за вариант! А можно ли все тоже самое сделать с моим кодом? В принципе, можно даже не давать новое имя, а просто select добавленную картинку. А я уж дальше сам как-нибудь

Читают тему