在VBA和Excel中复制随机范围的粘贴图片

这是我的密码。我想在特定范围内粘贴图片，我尝试了不同的代码，但失败了。我希望它在左上角，或者从“A1”开始

这应该可以

 Sub CommandButton2_Click()

 ThisWorkbook.Sheets(3).Activate
 Range("B5:G32").Copy  'you can copy directly, in one instruction
 ThisWorkbook.Sheets(10).Activate
 Range("A1").Select  'select where you want to paste it
 ActiveSheet.Pictures.Paste  
 ThisWorkbook.Sheets(1).Activate

 End Sub

---

检查此处粘贴为图像的工作示例作为建议，请始终尝试远离

激活

，

选择

和

选择

，而使用引用对象

下面的代码将把范围（“B5:G32”）从

表（3）

复制到

表（1）

，并将图片放置在单元格A1（左上位置）

Private子命令按钮2\u单击（）
ThisWorkbook.Sheets（3）.范围（“B5:G32”）。CopyPicture外观：=xlScreen，格式：=xlBitmap
使用Sheet10.Pictures.Paste
.左=范围（“A1”）.左“没有任何事情发生，人。甚至连照片都贴不上。顺便说一句，谢谢你，我会尝试不同的。你能把例子上传到某个地方吗？你应该在不选择/激活的情况下编写代码。然后，它应该更有效一些，让其他人更容易阅读。例如，只需使用
表（3）.范围（“B5:G32”）.复制
。我想你这里的问题是复制范围而不是图片对象。我把它理解为复制范围并粘贴为图片。如果不同，请在或其他服务上上载一个示例，并在这是一个复制范围时提供有关您想要实现的内容的其他详细信息，然后将其作为图片粘贴到另一张纸上。我想将范围（“B5:G52”）复制为图片，并将其粘贴到特定单元格中的Sheet1，这是（“A1:或其他什么东西/等等”）什么不起作用？非常感谢！最后还感谢您的推荐：）
 Sub CommandButton2_Click()

 ThisWorkbook.Sheets(3).Activate
 Range("B5:G32").Copy  'you can copy directly, in one instruction
 ThisWorkbook.Sheets(10).Activate
 Range("A1").Select  'select where you want to paste it
 ActiveSheet.Pictures.Paste  
 ThisWorkbook.Sheets(1).Activate

 End Sub

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