Как сохранить ссылку на изображение в переменной?

Question

Первый код работает, он откроет изображение на моем листе.

ActiveCell.Select 
Dim picname As String 
picname = ActiveCell.Value 

ActiveSheet.Pictures.Insert "C:\Users\gaetan.affolter\Desktop\test.jpg " 

Но мне нужно иметь переменную как ссылку, потому что ссылка меняется все время.

Я пробовал этот код, но у меня есть ошибка.

«Невозможно прочитать изображение изображения уместности вставку класса картины»

Worksheets("Feuil1").Range("A1").Value = Image3 

Dim img As Picture 

ActiveCell.Select 
Dim picname As String 
picname = ActiveCell.Value 

Set img = ActiveSheet.Pictures.Insert(Image3) 

Answer 1

Ваш код, кажется немного запутанным.

1. Если полный путь к изображению в ячейке A1, то ваша первая строка должна быть изменена:

   Image3 = Worksheets("Feuil1").Range("A1").Value

2. Что вы делаете с picname? Вы объявляете и назначаете его, но вы не используете его здесь.