如何通过Powerpoint使用VBA将URL图像保存到文件夹中？

Sub SaveImageFromURL()
    Dim URL As String
    Dim FileName As String
    Dim objHTTP As Object
    Dim objADO As Object
    Dim objFSO As Object
    Dim objStream As Object
    
    ' 设置URL和保存的文件名
    URL = "https://example.com/image.jpg"
    FileName = "C:\Images\image.jpg"
    
    ' 创建HTTP请求对象
    Set objHTTP = CreateObject("MSXML2.XMLHTTP")
    
    ' 发送HTTP请求
    objHTTP.Open "GET", URL, False
    objHTTP.send
    
    ' 创建ADO流对象
    Set objADO = CreateObject("ADODB.Stream")
    
    ' 设置流类型为二进制
    objADO.Type = 1
    
    ' 打开流
    objADO.Open
    
    ' 写入HTTP响应内容到流
    objADO.Write objHTTP.responseBody
    
    ' 保存流内容到文件
    objADO.SaveToFile FileName, 2
    
    ' 关闭流和对象
    objADO.Close
    objHTTP.abort
    Set objADO = Nothing
    Set objHTTP = Nothing
    
    MsgBox "图像保存成功！"
End Sub