PostData = "{""entityTypeId"":""148"", ""id"":""5311"", ""fields"":{""UFCRM_34_UID_TOV"":""666661""}}"

Sub Send()

    Dim PostData As String, Content_Type As String, sUrl As String
    sUrl = "https://bitrix.site.ru/rest/632/key/crm.item.update"
    base64_encoded_file = EncodeFile("C:\tov174908.jpg")
    PostData = "{ entityTypeId: 148, id: 1537, ""fields"":{""UFCRM_34_FOTO"":[""1.jpg""," & _
    Chr(34) & base64_encoded_file & Chr(34) & " ]}}"
    Content_Type = "application/json"
    res = pvPostFile(sUrl, PostData, Content_Type)
    Debug.Print (res)
End Sub

Function pvPostFile(sUrl As String, PostData As String, Content_Type) As String
    With CreateObject("MSXML2.XMLHTTP.6.0")
        .Open "POST", sUrl, False
        .setRequestHeader "Content-Type", Content_Type
        .Send pvToByteArray(PostData) 'Здесь надо попробовать оба варианта
        ' .Send PostData
        pvPostFile = .responseText
    End With
End Function

Private Function pvToByteArray(sText As String) As Byte()
    pvToByteArray = StrConv(sText, vbFromUnicode)
End Function

PostData = "{""fields"":{""ufCrm1617027453943"":[""myfile.pdf""," & _
               Chr(34) & base64_encoded_file & Chr(34) & " ]}}"

PostData = "{ entityTypeId: 147, id: 1437" & _
""fields"":{""ufCrm1617027453943"":[""myfile.pdf""," & _
Chr(34) & base64_encoded_file & Chr(34) & " ]}}"

Function httpSend(url As String) As String    Set httpRequest = CreateObject("MSXML2.XMLHTTP") 'Msxml2.XMLHTTP.6.0
    Debug.Print ("POST send: " & url)
    httpRequest.Open "POST", url, False
    httpRequest.Send
    httpSend = httpRequest.responseText
End Function
и в url использую файл. Реакции тоже нет.

Function httpSend(url As String) As String
    Set httpRequest = CreateObject("MSXML2.XMLHTTP") 'Msxml2.XMLHTTP.6.0
    Debug.Print ("GET send: " & url)
    httpRequest.Open "GET", url, False
    httpRequest.Send
    httpSend = httpRequest.responseText
End Function

Public Function RStURL(ByVal txt As String) As String
    For i = 1 To Len(txt)
        l = Mid(txt, i, 1)
        Select Case AscW(l)
            Case Is > 4095: T = "%" & Hex(AscW(l) \ 64 \ 64 + 224) & "%" & Hex(AscW(l) \ 64) & "%" & Hex(8 * 16 + AscW(l) Mod 64)
            Case Is > 127: T = "%" & Hex(AscW(l) \ 64 + 192) & "%" & Hex(8 * 16 + AscW(l) Mod 64)
            Case 32: T = "%20"
            Case 43: T = "%2b"
            Case 47: T = "%2F"
            Case Else: T = l
        End Select
        RStURL = RStURL & T
    Next
End Function

Public Function EncodeFile(strPicPath As String) As String
    Const adTypeBinary = 1          ' Binary file is encoded

    ' Variables for encoding
    Dim objXML
    Dim objDocElem

    ' Variable for reading binary picture
    Dim objStream

    ' Open data stream from picture
    Set objStream = CreateObject("ADODB.Stream")
    objStream.Type = adTypeBinary
    objStream.Open
    objStream.LoadFromFile (strPicPath)

    ' Create XML Document object and root node
    ' that will contain the data
    Set objXML = CreateObject("MSXml2.DOMDocument")
    Set objDocElem = objXML.createElement("Base64Data")
    objDocElem.DataType = "bin.base64"

    ' Set binary value
    objDocElem.nodeTypedValue = objStream.Read()

    ' Get base64 value
    EncodeFile = objDocElem.Text

    ' Clean all
    Set objXML = Nothing
    Set objDocElem = Nothing
    Set objStream = Nothing

End Function

{
    "fields": {
        "ufCrm1617027453943": [
             "myfile.pdf", 
             "...base64_encoded_file_content..."
        ]
    }
}

let
    Url = "https://сайт.ru/rest/доступ/ключ/tasks.task.list.json?filter[STATUS]=-1&start=",
    RecordsPerPage = 50,
    Source = Json.Document(Web.Contents(Url & "1")),
    TotalCount = Source[total],
    PagesCount = Number.RoundUp(TotalCount / RecordsPerPage),
    GetRecords = (start) =>
let
            PageJson = Json.Document(Web.Contents(Url & Text.From(start))),
            PageList = PageJson[result][tasks],
            ToTable = Table.FromRecords(PageList),
            DownloadedTable = Table.ExpandRecordColumn(ToTable, "responsible", {"name"}, {"name"}),
            ExpandedTable = Table.SelectColumns(DownloadedTable,{"id", "name"})
        in
            ExpandedTable,
    Pages = List.Skip(List.Generate(() => 1, each _ <= PagesCount, each _ + 1), 1),
    Records = List.Generate(() => GetRecords(1), each List.Count(_) > 0, each GetRecords(List.Last(List.LastN(Pages, 1)) * RecordsPerPage + 1)),
    Result = Table.Combine(Records)
in
    Result

Const myPi As Double = 3.14159265358979
Sub Макрос1()
    Dim rn1 As Range, rn2 As Range, rn3 As Range, arr1, arr2, arr3, arr4, arr5, a As Double, zn As Double, arc As Double
    Dim n As Integer, m As Integer, i As Integer
    arr1 = Worksheets("data").Range("B2:C" & Worksheets("data").Cells(Rows.Count, 2).End(xlUp).Row).Value 'диапазон точек
    ReDim arr5(1 To UBound(arr1), 1 To 1)
    arr2 = Worksheets("POLY").Range("A2:B" & Worksheets("POLY").Cells(Rows.Count, 1).End(xlUp).Row).Value 'диапазон полигонов
    For n = 1 To UBound(arr1)
        For m = 1 To UBound(arr2)
            a = 0
            arr3 = Split(Replace(Replace(arr2(m, 2), ",", "|"), ".", ","), " ")
            ReDim arr4(1 To UBound(arr3) + 1, 1 To 2)
            For i = 0 To UBound(arr3)
                arr4(i + 1, 1) = CDbl(Split(arr3(i), "|")(0)) - CDbl(Replace(arr1(n, 2), ".", ","))
                arr4(i + 1, 2) = CDbl(Split(arr3(i), "|")(1)) - CDbl(Replace(arr1(n, 1), ".", ","))
            Next
            For i = 1 To UBound(arr4) - 1
                zn = Sgn(arr4(i, 1) * arr4(i + 1, 2) - arr4(i + 1, 1) * arr4(i, 2))
                If zn = 0 Then
                    a = 360: Exit For
                Else
                    arc = (arr4(i, 1) * arr4(i + 1, 1) + arr4(i, 2) * arr4(i + 1, 2)) / (((arr4(i, 1) ^ 2 + arr4(i, 2) ^ 2) ^ 0.5) * ((arr4(i + 1, 1) ^ 2 + arr4(i + 1, 2) ^ 2) ^ 0.5))
                    a = a + (ArcCos(arc)) * 180 / myPi * zn
                End If
            Next
            If Format(Abs(a), "0") = 360 Then
                arr5(n, 1) = arr2(m, 1)
                Exit For
            ElseIf Format(Abs(a), "0") = 180 Then
                arr5(n, 1) = "На границе" & arr2(m, 1)
                Exit For
            End If
            arr5(n, 1) = "Вне территории"
        Next
    Next
    Worksheets("data").Range("D2").Resize(UBound(arr5), 1) = arr5
End Sub
 
Public Function ArcCos(ar As Double) As Double
    On Error Resume Next
        If ar = 1 Then
            ArcCos = 0
            Exit Function
        End If
        ArcCos = Atn(-ar / Sqr(-ar * ar + 1)) + 2 * Atn(1)
    On Error GoTo 0
End Function