请大侠帮帮忙，用VBA根据人员身份证号码批量插入以身份证号码命名的JPG格式照片

mpa172

请大侠帮帮忙，用VBA根据人员身份证号码批量插入以身份证号码命名的JPG格式照片

geraint868

Sub a()
Dim a As Range
For Each a In Selection
   ActiveSheet.Pictures.Insert("F:\新建文件夹\帮帮忙\人员照片\" & a.Value & ".jpg").Select
        With Selection
        .Left = Cells(a.Row - 1, a.Column).Left
        .Top = Cells(a.Row - 1, a.Column).Top
        .Height = Cells(a.Row - 1, a.Column).Height
         .Width = Cells(a.Row - 1, a.Column).Width
    End With
    Next a
End Sub

方法：把这个代码设置成一个快捷键，比如CTR+J，然后哪些需要加图片的就选择那些单元格（姓名），再按快捷键就行了。
注意修改插入图片的文件路径。这个应该简单吧。