VBAからのPNGファイル送信＋FLASKのPOSTデバッグについて

Question

#内容

VBAを使って、FLASKへPNGファイルをポストするコードを書いています。

#不具合
FLASK 側でREQUESTの中身を見ているのですが、FILESの中身が空っぽになっており、
ファイルの受け渡しができていない状態です。

#再現性
ファイルサイズが問題ということが分かりました。

#質問内容
VBA側での送信ファイルの大きさを絞るには、どのような方法がありますでしょうか？

#ソース

Sub Sample()
    FileUpload ThisWorkbook.Path & "\image.png", 1
 End Sub

 Sub FileUpload(filePath, CabID)
    Const Server = "172.26.106.18:5000/image"
    Dim strBoundary: strBoundary = DateDiff("s", "1970/1/1 0:00:00", DateAdd("h", -9, Now))
    Set objHTTP = CreateObject("MSXML2.XMLHTTP")
    Set Stream = CreateObject("ADODB.Stream")
    Stream.Open
    Stream.Type = 1
    Stream.LoadFromFile filePath
    objHTTP.Open "POST", "http://" & Server, False
    objHTTP.SetRequestHeader "Content-Type", "multipart/form-data; boundary=""" & strBoundary & """"
    Dim str As String
    
    str = "--" & strBoundary & vbCrLf
    str = str & "Content-Disposition: form-data; name=""vbaform""" & vbCrLf & vbCrLf
    str = str & CabID & vbCrLf
    str = str & "--" & strBoundary & vbCrLf
    str = str & "Content-Disposition: form-data; name=""uploadFile""; filename=""" & Dir(filePath) & """" & vbCrLf
    str = str & "Content-Type: image/png" & vbCrLf & vbCrLf
    str = str & Stream.Read() & vbCrLf
    str = str & "--" & strBoundary & "--"
    objHTTP.Send str
    MsgBox objHTTP.responseText
 End Sub

@app.route('/image', methods=['POST'])
def image():
    img_file = request.files['uploadFile']
    return request.get_data()

##port 5000 backend server
if __name__ == '__main__':
    app.run('0.0.0.0', port='5000' ,debug=True)

<Request 'http://172.26.106.18:5000/image' [POST]>
(Pdb) request.files
ImmutableMultiDict([])

Answer 1

VBA自体の検討を中止しました