写一个EXCELVBA代码在N列的单元格内插入图片图片的大小为20100图片的目录为E资料SZHR2000HIEP-H照片名称为D列的单元格内容

Sub InsertPicture() Dim i As Integer Dim picPath As String Dim picName As String Dim picRange As Range

For i = 1 To ActiveSheet.UsedRange.Rows.Count
    picPath = "E:\资料\SZH\R2000HIEP-H照片\"
    picName = Range("D" & i).Value
    Set picRange = Range("N" & i)
    If picName <> "" Then
        picRange.Select
        ActiveSheet.Pictures.Insert(picPath & picName & ".jpg").Select
        With Selection.ShapeRange
            .LockAspectRatio = msoTrue
            .Width = 20
            .Height = 100
        End With
    End If
Next i

End Sub