使用VBA更新PowerPoint图片

时间:2013-05-18 10:51:30

标签: image vba powerpoint powerpoint-vba

我的日常工作涉及为客户创建强调点,以突出他们的广告系列效果。大多数图表都链接到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中的链接更新图片。这里的任何帮助将不胜感激。

1 个答案:

答案 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