首页 文章

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

提问于
浏览
2

我很舒服地使用VBA迭代Excel电子表格中的内容列表,并在单独的Powerpoint文件中创建幻灯片 . 那一点有效 .

但是我似乎无法在Powerpoint演示文稿中添加图片 . 我试过了:

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

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

我也试过通过UserPicture()设置一个对象的填充无济于事 .

在此先感谢您的帮助!

2 回答

  • 2

    这适用于Windows版本的PPT,但在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将图片置于“自然”大小...即,无论大小如何,如果您手动操作,它通常会插入图像;这可以避免扭曲图像 .

  • 0

    问题是您正在使用的路径样式 . 以下将有效:

    #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)
    

相关问题