我的日常工作包括为客户制作幻灯片，突出他们的竞选表现。大多数图表都与 excel 相关联，这为我节省了大量时间，但我最终还是花时间更新了 powerpoint 中的图像。
为了保留图像的大小和位置，当您右键选择图片并粘贴到这样的链接中时，我使用更改图片选项： https ://fbcdn-sphotos-ca.akamaihd.net/hphotos-ak-snc6 /9943_10151547582895095_1006500471_n.jpg。所有链接都在客户提供的excel中排序。
我已经在这里浏览过类似的帖子：Using VBA to insert/update image in PowerPoint? ，但我一直在寻找一种解决方案，根据 excel 中的链接更新图片。这里的任何帮助将不胜感激。
我在另一个网站上找到了答案。在这里发布它以防其他人正在考虑解决同样的挑战：
Sub recupererImageWeb_WinHttp()
'activate library : Microsoft WinHttp Services ,version 5.1
Dim b() As Byte
Dim h As Long
Dim oWinHttp1 As WinHttp.WinHttpRequest
Dim dex As String
dex = Worksheets("Sheet1").Cells(2, 11).Value
h = FreeFile
Open "C:\AAAA - Report\WWWWorkflow\cover.jpg" For Binary As #h
Set oWinHttp1 = New WinHttp.WinHttpRequest
oWinHttp1.Open "GET", _
dex, False
oWinHttp1.Send
oWinHttp1.WaitForResponse (30)
b() = oWinHttp1.ResponseBody
Set oWinHttp1 = Nothing
Put #h, 1, b()
Close #h
End Sub