Question

我想使用VBA Powerpoint通过URL直接下载图片并将其放置在当前的PowerPoint演示文稿中。这适用于常见和开放的网址，例如 'http://finviz.com/chart.ashx?t=INTC&ty=c&ta=0&p=w&s=l'

不幸的是，在执行“ thePix.Fill.UserPicture imageURL”行时，如果我正在使用outlook.office365.com地址从中下载图片，则会弹出错误消息“运行时错误'70'：权限被拒绝”。公司邮件服务器？！。

到底是什么问题？是否需要以某种方式还传输此特定服务器的登录数据？如何归档？有人可以帮我吗？

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 马丁

如何通过URL将照片从Outlook365下载到Powerpoint

0 个答案: