这是我的代码。我想将图片粘贴在特定范围内，我尝试使用不同的代码但失败了。我希望它位于左上角，或者以“ A1”开头。
Sub CommandButton2_Click()
ThisWorkbook.Sheets(3).Activate
ThisWorkbook.Sheets(3).Range("B5:G32").Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
Sheet10.Pictures.Paste.Select
ThisWorkbook.Sheets(1).Activate
End Sub
作为一个建议，总是试图从远离Activate，Select并且Selection，转而使用引用的对象。
下面的代码会将范围（“ B5：G32”）从复制Sheets(3)到Sheets(1)，并将图片放置在单元格A1中（左上角）。
Private Sub CommandButton2_Click()
ThisWorkbook.Sheets(3).Range("B5:G32").CopyPicture Appearance:=xlScreen, Format:=xlBitmap
With Sheet10.Pictures.Paste
.Left = Range("A1").Left ' <-- setting the left postion to Cell A1
.Top = Range("A1").Top ' <-- setting the top postion to Cell A1
End With
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句