macros插入图像文件名到单元格中
我已经使用这个代码，我需要一些帮助来添加两个function：
- select图片时，将图片名称插入到单元格中
- 创build一个链接到一个文件夹，在这个文件夹后面跟着/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
我假设你的图片文件名variables是fName，并且你已经有了你的图片文件的path作为一个variables（让我们假设它被称为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