0

私の日々の仕事には、キャンペーンのパフォーマンスを強調するクライアント向けのパワーポイントの作成が含まれます。ほとんどのグラフは Excel にリンクされているため、時間を大幅に節約できますが、パワーポイントで画像を更新するのに時間を費やすことになります。

画像のサイズと位置を保持するために、画像を右に選択して次のようにリンクに貼り付けるときに、画像の変更オプションを使用します: https://fbcdn-sphotos-ca.akamaihd.net/hphotos-ak-snc6 /9943_10151547582895095_1006500471_n.jpg . すべてのリンクは、クライアントから提供された Excel で注文されます。

ここで同様の投稿を既に行っています: VBA を使用して PowerPoint で画像を挿入/更新しますか? 、しかし、Excelのリンクに基づいて写真が更新されるソリューションを探していました。ここで何か助けていただければ幸いです。

4

1 に答える 1

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
于 2013-05-20T04:51:21.183 に答える