![在 Excel 中自动生成图像名称](https://linux22.com/image/1620348/%E5%9C%A8%20Excel%20%E4%B8%AD%E8%87%AA%E5%8A%A8%E7%94%9F%E6%88%90%E5%9B%BE%E5%83%8F%E5%90%8D%E7%A7%B0.png)
正如所描述的这里,Excel 引入了加载到电子表格中的图像的通用文件名。我想知道是否可以创建一个 VBA 脚本或其他程序,将这些名称保存在电子表格中的某个位置?
例如,我加载一个空电子表格foo.jpg
,在某个单元格中,我得到image1.jpg
。然后我加载bar.jpg
得到image2.jpg
等等。
答案1
您需要编写如下所示的 VBA 代码来插入图片并跟踪其名称。
Sub InsertPicture()
Dim sFileName As String
sFileName = Application.GetOpenFilename("Pictures JPG (*.jpg)|*.jpg, Pictures PNG (*.png)|*.png", 0, "Select the Picture", , False)
Sheets("Sheet1").Range("A1048576").End(xlUp).Offset(1, 0).Value = sFileName
ActiveSheet.Pictures.Insert(sFileName).Select
End Sub