【VBA】セル範囲を画像としてコピーする｜CopyPicture

' -----------------------------------------------------------------------
' 引数          : ws:コピー元シート/rowFirst:開始行/colFirst:開始列/rowLast:最終行/colLast:最終列
' -----------------------------------------------------------------------
Public Sub CopyAsPicture( _
                                    ByVal ws As Worksheet, _
                                    ByVal rowFirst As Long, _
                                    ByVal colFirst As Long, _
                                    ByVal rowLast As Long, _
                                    ByVal colLast As Long)
    With ws
        .Range(.Cells(rowFirst, colFirst), .Cells(rowLast, colLast)).CopyPicture xlScreen, xlPicture
    End With
End Sub