Question

我的日常工作涉及为客户创建强调点，以突出他们的广告系列效果。大多数图表都链接到excel，这节省了我很多时间，但我最终花时间更新powerpoint中的图像。

为了保留图像的大小和位置，当您右键选择图片并粘贴链接时，我会使用更改图片选项：https://fbcdn-sphotos-c-a.akamaihd.net/hphotos-ak-snc6/9943_10151547582895095_1006500471_n.jpg。所有链接都以excel命令，由客户提供。

我已经在这里找到了类似的帖子：Using VBA to insert/update image in PowerPoint?，但我正在寻找一个解决方案，根据excel中的链接更新图片。这里的任何帮助将不胜感激。

Answer 1

我在不同的网站上找到了答案。在此处发布以防其他人正在寻求解决相同的挑战：

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

使用VBA更新PowerPoint图片

1 个答案: