EXCEL中如何将插入的图片与图片名称对应？-excel图片名称,如何将图片名称导入excel

刚有现成的代码啊
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 1 And Target.Row > 1 Then
Dim fso, shp As Object
Dim rgTL As Range
Dim pname As String
pname = "d:\pic\" & Range("A" & Target.Row).Value & ".jpg"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(pname) Then
For Each shp In ActiveSheet.Shapes
Set rgTL = shp.TopLeftCell
If rgTL.Row = Target.Row Then shp.Delete
Next
Set rgTL = Range("C" & Target.Row)
Set shp = ActiveSheet.Pictures.Insert(pname)
shp.ShapeRange.Height = rgTL.Height
shp.Left = (rgTL.Width - shp.Width) / 2 + rgTL.Left
shp.Top = (rgTL.Height - shp.Height) / 2 + rgTL.Top
Else
MsgBox "不存在此名称的e799bee5baa6e78988e69d83335图片！"
GoTo e
End If
End If
e:
Set fso = Nothing
End Sub

1、在excel加载项中选择“DIY工具箱”，选择导入图片功能；

2、在弹出的抄对话框中选择“添加”按钮；

3、找到图片路径，全选需要导入的图片，然后点击打开；在弹出的对话框中，设置需要储存的单元格，以及导入格式。关键的步骤就是选中“同时标注袭图片名”功能，然后点击确认。

4、然后我们在点击取消关闭zhidao对话框；

5、在表格中我们就把图片和图片名一一对应上了。

具体是什么情况？

你用这个方法试试吧，我刚试了试，百好像可以：
1、把你的excel表另存为，保存类型为：“网页”；
2、在保度存的位置生成一个文件夹，打开该文件夹，里面就有gif和png两种图片格式，并且已经按照顺序排列；
3、右键“排列图标”—“类型”；
4、选取所有gif图片，按F2改名，改为：“sty”，问回车；
5、此时，图片按顺序改为sty，sty（1），sty（2），sty（3）...

注意：
a、第一答个没有编号，所以为了让他有编号，放一张其它图片在第一的位置，这样内你需要的图片就从sty（1）开始了，再把sty删除。
b、步骤4改名时，有时候选择的不是第一个，这时要先单独给第一个按次F2，再直接回车，再重容复步骤4即可。