作者：乔山办公网日期：
返回目录：excel表格制作
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "E3" Then
Dim Rng As Range, Pic As Shape
On Error Resume Next
Set Rng = Range("J4") '照片单元格
Path = ThisWorkbook.Path & "\照片\" '图片路径
For Each Pic In Shapes
If Pic.Name Like "*照片" Then Pic.Delete
Next
If Dir(Path & Range("E3") & ".JPG") <> "" Then '用dir函数测试该人的照片文7a64e78988e69d83364件是不是存在。
ActiveSheet.Shapes.AddPicture(Range("E3") & ".JPG", 1, 1, Rng.Left + 10, Rng.Top + 5, 90, 120).Name = Range("E3") & "照片"
Else
'假如笑脸的图片存放的文件名为xiaolian.jpg
ActiveSheet.Shapes.AddPicture(Path & "xiaolian.jpg", 1, 1, Rng.Left + 10, Rng.Top + 5, 90, 120).Name = Range("E3") & "照片"
End If
End If
End Sub
这个网上示例很多了，比如网页链接
自己可以修改一下
批量保存：点击Excel左上角“文件/圆形百图标”度→“另存为”→文件类型选择“网页”
在保存的地方，会自动新建一个文件夹“文件名.files”，点击文件夹，即可看内到保存在excel里的所有图片。
单张保存：在要保存的图片，复制之后，打开QQ聊天窗口并粘贴，即可通过右键选择“容另存为”保存图片。
1、打开excel，表格A列是图片或照片百名称，B列单元格存储照片。需要在D2输入或选择名称，然后在E2返回对应照片或图片。
2、选中D2单元格，点击【数据】-【有效性】。
3、选择【序列】，数据来源处选择A列数度据。这样设置完知毕后，在D2单元格就产生了A列数据的下拉菜单，可以选择不同的名称。
4、点击功能区的【公式】-【定义名称】。
5、输入公式：=INDEX(图片道!$B:$B,MATCH(图片!$D$2,图片!$A:$A,0))
定义一个“照片”的名称。
6、选择功能区的【开发工具】选项卡，选择【插入】-【图像控件】。
7、用鼠标画出一个控件，并适当调整大小。
8、选中图回像控件，将编辑栏的公式改成：=照片。
9、回车后，图像控件就返回了D2姓名对应的照答片。
10、更改下拉框的选项，照片将随着动态变化。