Indsæt et billede fra nettet i Word vha. VBA

Koden skal se således ud:

    Selection.InlineShapes.AddPicture FileName:= _
        "http://www.eksperten.dk/img/elogo.png", LinkToFile:=False, _
        SaveWithDocument:=True

Har lige tjekket DIN kode. Den kører fint hos mig, så du må have lavet en anden fejl et andet sted i koden.

Det eneste kode jeg har er ovenstående kode. Det virker altså ikke. Kører jeg koden får jeg en dialog-box med meddelelsen:

Run-time error '5152'

This is not a valid file name.
Try one or more of the following:
* Check the to path to make sure it was typed correctly.
* Select a file from

Dialog-boxen har tre knapper: Continue, End, Debug og Help.

Klikker jeg på Debug bliver den eneste kode-linje markeret. Det mærkelige er, at når jeg prøver at indsætte billedet (http://www.eksperten.dk/img/elogo.png) i Word ved at vælge Insert -> Picture -> From File så kan den godt finde ud af det.

Jeg har Internet-adgang gennem transparent proxy. Jeg ved ikke om det har noget at sige?

Jeg har fundet en løsning:

Public Sub DownloadFile(strUrl As String, strLocalFile As String)
    Const HTTPREQUEST_PROXYSETTING_DEFAULT = 0
    Const HTTPREQUEST_PROXYSETTING_PRECONFIG = 0
    Const HTTPREQUEST_PROXYSETTING_DIRECT = 1
    Const HTTPREQUEST_PROXYSETTING_PROXY = 2
   
    Const HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0
    Const HTTPREQUEST_SETCREDENTIALS_FOR_PROXY = 1

    Dim objRequest As Object
    Dim bytData() As Byte
    Dim intFreeFile As Integer
   
    Set objRequest = CreateObject("WinHttp.WinHttpRequest.5")
   
    objRequest.Open "GET", strUrl, False
    objRequest.Send
   
    intFreeFile = FreeFile
    bytData() = objRequest.ResponseBody
   
    Open strLocalFile For Binary Access Write As #intFreeFile
        Put #intFreeFile, , bytData()
    Close #intFreeFile
   
    Set objRequest = Nothing
End Sub