EXCEL技巧——怎样自动添加照片

1、 首先我们需要把照片放到文件夹里面，命名为111，然后把工作表和文件夹111放在同一目录=C:\Documents and Settings\Administrator\桌面\111，工作表的建立形式如图所示。

3、 在 Sub AutoAddPic() End Sub 中间输入以下代码，保存后，关闭。For Each Shp In ActiveSheet.Shapes If Shp.Type = msoPicture Then Shp.Delete Next Dim MyPcName As String For i = 1 To ThisWorkbook.ActiveSheet.UsedRange.Rows.Count If (ActiveSheet.Cells(i, 1).Value = "姓名") Then MyPcName = ActiveSheet.Cells(i, 2).Value & ".jpg" ActiveSheet.Cells(i + 1, 2).Select Dim MyFile As Object Set MyFile = CreateObject("Scripting.FileSystemObject") If MyFile.FileExists(ThisWorkbook.Path & "\" & "111" & "\" & MyPcName) = False Then MsgBox ThisWorkbook.Path & "\" & "111" & "\" & MyPcName & "暂无图片" Else ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & "111" & "\" & MyPcName).Select End If End If Next i

4、 打开工作表，点击开发工具——宏，打开宏编辑窗口，选择AutoAddPic，单击执行，这时候，工作表中就插入了照片。