Я хотел бы использовать VBA Powerpoint для прямой загрузки изображения через URL и размещения его в текущей презентации Powerpoint.Это работает для общих и открытых URL-адресов, таких как 'http://finviz.com/chart.ashx?t=INTC&ty=c&ta=0&p=w&s=l'
. К сожалению, появляется сообщение об ошибке «Ошибка во время выполнения« 70 »: разрешение запрещено» при выполнении строки «thePix.Fill.UserPicture imageURL ', если я использую адрес outlook.office365.com для загрузки картинок с почтового сервера компании?!.
В чем именно заключается проблема?Есть ли необходимость как-то также передавать данные для входа на этот конкретный сервер?Как это можно архивировать?Может кто-нибудь помочь мне?
Sub AddImage()
Dim thePix As Shape
Dim imageURL As String
Dim sld As Slide
Set sld = ActiveWindow.View.Slide
imageURL = "https://outlook.office365.com/owa/service.svc/s/GetPersonaPhoto?email=XXX@YY.com&UA=0&size=HR648x648"
'imageURL = "http://finviz.com/chart.ashx?t=INTC&ty=c&ta=0&p=w&s=l"
For Each thePix In sld.Shapes
thePix.Fill.UserPicture imageURL
Next thePix
End Sub
Большое спасибо и BR Martin