Excel：屏幕截图自动粘贴到另一张图纸VBA

我这里有我的工作表屏幕截图的草稿代码

Private Sub CommandButton1_Click()

shtAnalysis.Range("A10:U36").CopyPicture format:=xlBitmap
MsgBox "Snapshot copied to clipboard!", vbInformation Or vbOKOnly, "Snapshot"

End Sub

我的目标是当你点击屏幕截图的按钮时 代码将完成屏幕截图，并将其粘贴到另一张新表中

我有两张床单， 第一页，分析（屏幕截图按钮所在位置）

---

第二张工作表，检查（将放置屏幕截图的位置）

假设目标工作表（检查）位于名为shtcheck的变量中，可以通过以下方式执行：

Private Sub CommandButton1_Click()
    shtAnalysis.Range("A10:U36").CopyPicture format:=xlBitmap
    MsgBox "Snapshot copied to clipboard!", vbInformation Or vbOKOnly, "Snapshot"
    shtChecking.Paste Destination:=shtChecking.Range("F5")
End Sub

---

如果要将图像与单元格“F5”对齐，在示例中，假设目标工作表（检查）位于名为shtChecking的变量中，可以通过以下方式执行：

Private Sub CommandButton1_Click()
    shtAnalysis.Range("A10:U36").CopyPicture format:=xlBitmap
    MsgBox "Snapshot copied to clipboard!", vbInformation Or vbOKOnly, "Snapshot"
    shtChecking.Paste Destination:=shtChecking.Range("F5")
End Sub

---

如果要将图像与单元格“F5”对齐，在示例中

执行复制/粘贴过程时是否尝试录制宏？是的，先生，我尝试录制宏。在做宏之前先测试一下。在执行复制/粘贴过程时，您是否试过录制宏？是的，先生，我试过录制宏。在做宏之前先测试一下