Excel: скриншот автоматически вставляется на другой лист VBA

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», например