求助：大神看过来，EXCEL中，利用VBA插入图片Shapes.AddPicture，解决图像失真

[←か淡定☆ ヾ]

VBA 插入图片到EXCEL单元格的后，失真很严重，简直了！大神帮帮我，正确的代码怎么写啊
Private Sub CommandButton5_Click()
Dim rng, wj, i As Integer

    With Application.FileDialog(msoFileDialogFilePicker)
     .Title = "选择图片"
    If .Show Then
        '获取到路径
         wj = .SelectedItems(1)
    End If
    End With
   
    i = Sheets("销售记录").Cells(Rows.Count, 1).End(3).row
    Set rng = Cells(i, 8)
    ActiveSheet.Shapes.AddPicture(wj, True, True, rng.Left, rng.Top, rng.Width, rng.Height).Placement = xlMoveAndSize
End Sub

谢谢！

[liulang0808]

楼主粘贴的图片直接设置了大小，如果不合符要求自然失真的