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
謝謝！
uj5u.com熱心網友回復：
樓主粘貼的圖片直接設定了大小，如果不合符要求自然失真的轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/25171.html
標籤：VBA