Сохранение части листа как картинки

Private Declare Function OpenClipboard Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare Function CloseClipboard Lib "user32.dll" () As Long
Private Declare Function GetClipboardData Lib "user32.dll" (ByVal wFormat As Long) As Long
Private Declare Function CopyEnhMetaFile Lib "gdi32" Alias "CopyEnhMetaFileA" (ByVal hemfSrc As Long, ByVal lpszFile As String) As Long
 
Const CF_ENHMETAFILE As Long = 14
 
Private Sub CommandButton1_Click()
 
Dim PShape As Shape, hStrPtr As Long
 
  Range("F1:Q41").Select
    Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    
    If Not CBool(OpenClipboard(0)) Then
      MsgBox "Не удалось открыть буфер"
      GoTo NextSh
    End If
    hStrPtr = GetClipboardData(CF_ENHMETAFILE)
    If Not CBool(hStrPtr) Then
      MsgBox "Не удалось получить дескриптор"
      GoTo CloseClip
    End If
    If Not CBool(CopyEnhMetaFile(hStrPtr, "C:\Temp" & hStrPtr & ".jpg")) Then
        MsgBox "Не удалось создать файл"
            Else
   UserForm1.Image1.Picture = LoadPicture("C:\Temp" & hStrPtr & ".jpg")
    UserForm1.Image1.PictureSizeMode = 1
      GoTo CloseClip
    End If
CloseClip:
    CloseClipboard
End Sub

Private Sub CommandButton2_Click()
SavePicture Image1.Picture, "C:\" & Replace(Time, ":", "_") & ".jpg"
End Sub