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

Question

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

选中图片时在单元格中插入图片名称

创建一个指向此图像后跟/picname.jpg

的文件夹的链接

这可能吗？
另一件事是在一系列单元格中使用它
我试过类似的东西

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

但是不行。。

我真的很感激一些帮助。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$D$1" Or Target.Address = "$D$2" Then
        fName = Application.GetOpenFilename("Picture files (*.jpg;*.gif;*.bmp;*.tif), *.jpgs;*.gif;*.bmp;*.tif", , _
"Select picture to insert")
        If fName = "False" Then Exit Sub
        ActiveSheet.Pictures.Insert(fName).Select
        With Selection.ShapeRange
            .LockAspectRatio = msoFalse
            .Height = ActiveCell.Height
            .Width = ActiveCell.Width
            .Top = ActiveCell.Top
            .Left = ActiveCell.Left
        End With
    End If
End Sub

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