写一个VBA代码在表格中的N列的单元格内插入图片图片的路径为E资料SZHR2000HIEP-H照片加上当前行D列的单元格的内容

Sub InsertPictures() Dim PicRange As Range Dim PicPath As String Dim PicName As String Dim PicTop As Single Dim PicLeft As Single Dim PicWidth As Single Dim PicHeight As Single

'设置图片的属性
PicTop = 10
PicLeft = 10
PicWidth = 100
PicHeight = 100

'循环遍历每一行
For i = 1 To ActiveSheet.UsedRange.Rows.Count
    '获取图片的路径和名称
    PicPath = "E:\资料\SZH\R2000HIEP-H照片\" & Range("D" & i).Value & ".jpg"
    PicName = Range("D" & i).Value
    
    '判断图片是否存在
    If Dir(PicPath) <> "" Then
        '设置插入图片的单元格范围
        Set PicRange = Range("N" & i)
        '插入图片
        PicRange.Select
        ActiveSheet.Pictures.Insert(PicPath).Select
        
        '设置图片的位置和大小
        With Selection.ShapeRange
            .LockAspectRatio = msoFalse
            .Top = PicTop
            .Left = PicLeft
            .Width = PicWidth
            .Height = PicHeight
        End With
    Else
        MsgBox "图片 " & PicName & " 不存在！", vbExclamation, "错误"
    End If
Next i

End Sub