批量导入照片到EXCEL中

---

这是单个人名设置的宏，如果要设置多个人的话，必须要看你的表格的格式是怎么样的。你可以加我QQ，81565434，我帮你做出来悔升，但要注明是百度问题。其它闲杂人等勿扰。。
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
ActiveSheet.Pictures.Insert("C:\temp\" & Target.Text & ".jpg").Select 'Insert Pictures"
ActiveSheet.Pictures.Insert("C:\temp\" & Target.Text & ".jpeg").Select 'Insert Pictures"
ActiveSheet.Pictures.Insert("C:\temp\" & Target.Text & ".gif").Select 'Insert Pictures"
ActiveSheet.Pictures.Insert("C:\temp\" & Target.Text & ".jpe").Select 'Insert Pictures"
ActiveSheet.Pictures.Insert("C:\temp\" & Target.Text & ".BMP").Select 'Insert Pictures"
ActiveSheet.Pictures.Insert("C:\temp\" & Target.Text & ".BMP").Select '碧升老Insert Pictures"
ActiveSheet.Pictures.Insert("C:\temp\" & Target.Text & ".BMP").Select 'Insert Pictures"笑答
ActiveSheet.Pictures.Insert("C:\temp\" & Target.Text & ".BMP").Select 'Insert Pictures"
Selection.Name = Target.Text 'Picture name
Selection.ShapeRange.LockAspectRatio = msoFalse '
Selection.ShapeRange.Height = Target.Height 'H
Selection.ShapeRange.Width = Target.Width 'W
Selection.ShapeRange.Top = Target.Top 'Top
Selection.ShapeRange.Left = Target.Left 'Left
End Sub

---

首先点击插入，选择图片，来源选择此设备，找到图片文银瞎件夹，单击图锋猛空片然后Ctrl加A就能全选图片，最后点击插入，在修改一知早下大小即可。