Question

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

Private Sub CommandButton1_Click()

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

End Sub

我打算做的是单击屏幕截图按钮时该代码将进行屏幕截图，并将其粘贴到另一个新表中。

我有2张纸，第一张工作表分析（位于屏幕截图的按钮所在的位置）第二张，检查（将屏幕截图放置在何处）

Answer 1

假设目标工作表（检查）位于名为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”对齐

Excel：屏幕截图自动粘贴到另一个工作表VBA

1 个答案: