vba - 在 VBA (MacOS) 中将 Web 中的图片添加到 Powerpoint 幻灯片

Question

我很舒服地使用 VBA 来遍历 Excel 电子表格中的内容列表，并在单独的 Powerpoint 文件中创建幻灯片。那一点有效。

但是，我似乎无法将图片添加到 Powerpoint 演示文稿中。我试过了：

• 使用带有图像 URL 的Shapes.AddPicture 。一些人提到这应该有效；显然它在某些 Office 版本中出现故障（请参阅http://www.pcreview.co.uk/forums/powerpoint-2007-vba-addpicture-web-image-problem-t3171074.html）；
• 使用带有文件路径的 Shapes.AddPicture。这应该有效，但是：

Dim pic
Set pic = activeSlide.Shapes.AddPicture("/Users/Pedro/My_Picture.png", False, True, 10, 10)

...失败并出现运行时错误 5（无效的过程调用或参数）。请注意我在Mac OS X, Office 2011上。

我还尝试通过 UserPicture() 设置对象的填充无济于事。

提前感谢您对此的任何帮助！

Answer 1

这适用于 PPT 的 Windows 版本，但在 Mac 2011 中失败：

Sub thing()
Dim oPic As Shape
Set oPic = ActivePresentation.Slides(1).Shapes.AddPicture("http://www.somesite.xxx/directory/filename.jpg", False, True, 0, 0, -1, -1)
End Sub

不幸的是，在 Mac PPT 中，相当多的应该可以工作（并且在 Win 版本中可以做）的事情都失败了。

最后两个 -1 参数告诉 PPT 以“自然”尺寸导入图片……即，如果您手动插入，它通常会插入图片的任何尺寸；这样可以避免图像失真。

Answer 2

问题是您使用的路径样式。以下将起作用：

#If Mac Then
    imagePath = (MacScript("get path to startup disk as string") & "Users:Pedro:My_Picture.png")
#Else
    imagePath = "C:\path\to\My_Picture.png"
#End If

activeSlide.Shapes.AddPicture(imagePath, False, True, 10, 10)