Вставка рисунка по ссылке в таблицу

Imhost

Гость

04.11.2010 20:40:43

Доброго времени суток!
Прошу подсказать новичку как выполнить следующее действо:

Есть вот такая строчка
With ActiveSheet.Pictures.Insert("http://image.eveonline.com/Character/1806376022_128.jpg")
Что нужно указать вместо числа "1806376022" считывал значение из нужной мне ячейки?

Заранее спасибо!

Diana Пользователь Сообщений: 982 Регистрация: 28.12.2012	#2 04.11.2010 20:46:38 Может так? (ячейка А1 (1,1) - первая строка, первый столбец... (без проверки) With ActiveSheet.Pictures.Insert("http://image.eveonline.com/Character/" & cells(1,1) & "_128.jpg")

Guest

Гость

04.11.2010 20:56:56

{quote}{login=Диана}{date=04.11.2010 08:46}{thema=Re: Вставка рисунка по ссылке в таблицу}{post}Может так? (ячейка А1 (1,1) - первая строка, первый столбец...
{/post}{/quote}

Не получается, я тоже так пытался. Пишет Run-time error 1004: невозможно получить свойство Insert класса Pictures

Guest Гость	#4 04.11.2010 21:02:59 Так работает With ActiveSheet.Pictures.Insert("http://image.eveonline.com/Character/" & ActiveSheet.Cells(1, 1) & "_128.jpg")

Diana Пользователь Сообщений: 982 Регистрация: 28.12.2012	#5 04.11.2010 21:07:14 Раюотает Sub www() iPath = "http://image.eveonline.com/Character/" IName = Cells(1, 1).Value iSubName = "_128.jpg" iFullname = iPath & IName & iSubName ActiveSheet.Pictures.Insert (iFullname) End Sub

Imhost

Гость

04.11.2010 21:14:43

{quote}{login=}{date=04.11.2010 09:02}{thema=}{post}Так работает
With ActiveSheet.Pictures.Insert("http://image.eveonline.com/Character/" & ActiveSheet.Cells(1, 1) & "_128.jpg"){/post}{/quote}

Да, только если действие Incert выполняется на том же листе где находится число.
Прошу прощения что сразу не вписал это в условие..
Нужно считать сичло не с активногого листа, а слюбого другого..
Если указать .../Character/" & Sheet(6).Cells(1, 1) & "_128.jpg" то выдает ошибку.

Diana Пользователь Сообщений: 982 Регистрация: 28.12.2012	#7 04.11.2010 21:19:16 Вот так... Прикрепленные файлы post_171227.xls (41 КБ)

Imhost

Гость

04.11.2010 21:22:27

{quote}{login=Диана}{date=04.11.2010 09:07}{thema=}{post}Раюотает
{/post}{/quote}

Диана, спасибо Вам огромное, работает!

Кому будет интересен данный топик вот мемного модифицированный код Дианы, В котором рисунок вставляется в Указанную Вами ячейку.

Imhost Гость	#9 04.11.2010 21:22:57 Sub www() iPath = "http://image.eveonline.com/Character/" IName = Cells(4, 2).Value iSubName = "_128.jpg" iFullname = iPath & IName & iSubName With ActiveSheet.Pictures.Insert(iFullname) .Left = Cells(4, 6).Left .Top = Cells(4, 6).Top End With End Sub

Читают тему