使用VBA更新PowerPoint圖片

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