Сохранить содержимое выделенных ячеек как изображение и отправить POST запросом - VBA

Формулировка задачи:

Здравствуйте! Мне необходимо сохранить содержимое выделенных ячеек как изображение и отправить POST запросом на определенный адрес. Из этого пока что получилось реализовать отправку на адрес введенной информации:

Sub Post_Detail()
 
    Dim sendString As String
    Dim boundary As String
    Dim httpString As String
    Dim address As String
    Dim postContent As String
 
    address = "http://localhost"
    postContent ="test"
    
    boundary = "Asrf456BGe4h"
 
    sendString = "--" & boundary & vbCrLf
    sendString = sendString & "Content-Disposition: form-data; name=""test""; filename=""test.jpg""" & vbCrLf
    sendString = sendString & "Content-Type: image/jpeg" & vbCrLf & vbCrLf
    sendString = sendString & postContent & vbCrLf & "--" & boundary & vbCrLf
 
    With CreateObject("Microsoft.XMLHTTP")
        .Open "POST", address, False
        .setRequestHeader "Content-Type", "multipart/form-data; boundary=" & boundary
        .setRequestHeader "Content-Length", Len(sendString)
        .send (sendString)
        MsgBox .responseText
    End With

End Sub

Вопрос, как получить содержимое выделенных ячеек и отправить их как jpeg картинку на удаленный сервер? То есть по сути записать в переменную postContent бинарное содержимое файла полученной картинки.

Решение задачи: «Сохранить содержимое выделенных ячеек как изображение и отправить POST запросом»

textual
                            Листинг программы 
                        

                            Sub SaveRangeToFile(rng As Range)
    With Application
        .DisplayAlerts = False
        Dim wsh As Worksheet
        rng.CopyPicture xlScreen, xlBitmap
        Set wsh = Worksheets.Add
        Dim cht As Excel.Chart
        Set cht = ActiveSheet.Shapes.AddChart.Chart
        cht.Location xlLocationAsNewSheet, "myChart"
        With ActiveChart
            .Paste
            .Export ActiveWorkbook.Path & "\" & "range.jpg", "JPG"
            .Delete
        End With
        wsh.Delete
        .DisplayAlerts = True
    End With
End Sub
Sub test()
    SaveRangeToFile Selection
End Sub
                        