自动链接Windows照片查看器

Question

我是VBA excel的新手。我需要一些宝贵的建议，如何将图像直接链接到Excel。

示例：

我有Coloumn“D”，其中有信息
苹果
三星
诺基亚
黑莓

我在“Nokia.jpeg”，“Apple.Jpeg”，“Samsung.jpeg”文件夹中有图片

我如何更新自动将这些图像链接到我的列名称。我有超过1000张图片。它花了很多时间手动链接，有没有办法将文件夹路径与相应的名称链接到列名。

Answer 1

myDir = "xxxxx"
t = ".JPG"
 Copystr1=Worksheet.Cells(i, 8).value 
Worksheets.Hyperlinks.Add Anchor:=Cells(i, 8), Address:=myDir & Copystr1 & t, TextToDisplay:=Copystr1

@vacip只是为了你，这只是一个帮助问题。