如何将链接存储到变量中的Image？

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做什么？你声明并指定它，但你没有在这里使用它。