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

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

 

posted @ 2013-09-17 16:08  fff8965  阅读(301)  评论(0)    收藏  举报