我的日常工作涉及为客户创建强调点,以突出他们的广告系列效果。大多数图表都链接到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中的链接更新图片。这里的任何帮助将不胜感激。
答案 0 :(得分:0)
我在不同的网站上找到了答案。在此处发布以防其他人正在寻求解决相同的挑战:
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