Ecel 粘贴图片并调整大小,移到底层

Sub Click()
ActiveSheet.Pictures.Paste.Select
Selection.ShapeRange.ScaleWidth 1.4, msoTrue
Selection.SendToBack
End Sub