Sub 按照当前行A列的图片名称插入图片到H列()
    AAA = Selection.Row
    Range("H" & AAA).Select
    Selection.RowHeight = 37   '指定行高
    ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & Range("A" &
Selection.Row) & ".JPG").Select
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.Height = 84.75
    Selection.ShapeRange.Width = 150.75
    Selection.ShapeRange.Rotation = 0#
    Selection.ShapeRange.ScaleWidth 0.73, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.73, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.24, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 2.5, msoFalse, msoScaleFromTopLeft
    Range("H" & AAA).Select
End Sub

Sub 按照当前行A列的图片名称插入图片到H列()
    AAA = Selection.Row
    Range("H" & AAA).Select
    Selection.RowHeight = 37   '指定行高
    ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & Range("A" &
Selection.Row) & ".JPG").Select
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.Height = 84.75
    Selection.ShapeRange.Width = 150.75
    Selection.ShapeRange.Rotation = 0#
    Selection.ShapeRange.ScaleWidth 0.73, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.73, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.24, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 2.5, msoFalse, msoScaleFromTopLeft
    Range("H" & AAA).Select
End Sub