<em>EXCEL</em>中如何将插入的图片与图片名称对应？-excel 显示对应图片,exc

刚有现成的代码啊
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 "不存在e68a84e8a2ad7a686964616f335此名称的图片！"
GoTo e
End If
End If
e:
Set fso = Nothing
End Sub

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

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

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

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

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

首先将图片的名字命名为编号
在A列输入这些编号
B列单元格中用hyperlink()函数实现

你这个设想牛B，我先记下你的位置。改天再来看下。我学习和使用EXCEL函数N年了。也没想到这样过。