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
谢谢!