从url vba下载图像

我有A列中的链接。我想从A列中的链接下载图像

下面是适用于我的代码，但加载的文件不是JPG格式。我们能做点什么来改变这一点吗？另外，我们可以更改正在下载文件的文件夹吗

Option Explicit

Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _
szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Sub getJPGfromweb()
    Dim strJPGLink As String
    Dim strJPGFile As String
    Dim Result As Boolean
    strJPGLink = ActiveSheet.Range("A3").Value
    strJPGFile = ActiveSheet.Range("B1").Value
    Result = DownloadFile(strJPGLink, strJPGFile)
    MsgBox Result
End Sub

Function DownloadFile(URL As String, LocalFilename As String) As Boolean
    Dim lngRetVal As Long
    lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
    If lngRetVal = 0 Then DownloadFile = True
End Function

---

1） 原始图像的格式是JPEG吗？2）

strJPGFile

的值是多少？如果从web浏览器中的A列打开链接，会发生什么情况？图像是否显示在浏览器窗口中？你能分享你有问题的链接吗？