宏将图像文件名插入单元格

Question

我已经使用了这段代码，我需要一些帮助来添加两个功能：

1. 选择照片时将照片名称插入单元格
2. 创建指向此图片后跟/pnamename.jpg
的文件夹的链接

这可能吗？ 其他的事情是在一系列细胞中使用它 我尝试过像

这样的东西

require

但是不行啊..

我真的很感激一些帮助。

  If Target = "$D$1:$D$10" Then

Answer 1

我假设您的图片文件名变量是fName，并且您已经将图片文件的路径作为变量（让我们假设它被称为pName）：

将文件名插入您可以使用（但不限于）的单元格中

ThisWorkbook.Sheets("SheetName").Range("A1").Value = fName

或

ActiveSheet.Range("A1").Value = fName

要插入文件的链接，您可以插入超链接公式，例如

ActiveSheet.Range("A1").Formula = "=HYPERLINK(""" & pName & fName & "")"

对于目标，您可以使用IF语句来确保目标在所需的单元格范围内：

 If Target.Column = 4 And Target.Row <= 10 Then

    '// Your code here

End If