#If VBA7 Then '64bitの場合
    Private Declare PtrSafe 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
#Else '32bitの場合
    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
#End If

Sub URLから画像をダウンロードする()
        
    URL = "https://excel3000.web.fc2.com/gazo/00_01_1.jpg"
    
    保存名 = "C:\sample.jpg"
    
    DL実行 = URLDownloadToFile(0, URL, 保存名, 0, 0)

End Sub