使用VBA插入/更新PowerPoint中的图像？

我正在制作一个交互式Powerpoint演示文稿，此演示文稿先前已从本地服务器（XAMPP）中读取了一个文本文件并将其显示出来。我想现在更新它，以便用户可以手写他们的回复，并在幻灯片上显示。我有一个jQuery插件，可以让别人使用手写笔，并将“绘图”保存为本地服务器上的图像。使用VBA插入/更新PowerPoint中的图像？

我的问题是，如何使用VBA宏将图像插入到PowerPoint中？或者，由于图像总是具有相同的文件路径，但会被替换为不同的图像，我能以某种方式“更新”幻灯片上的图像吗？对不起，如果它很混乱。

这是我试过的VBA：

Sub insert() 
    Dim oPic As Shape 
    Set oPic = ActivePresentation.Slides(1).Shapes.AddPicture("http://localhost/image.png", False, True, 0, 0, -1, -1) 
End Sub

我也可以拿到电脑，而不是服务器上的图像的路径。

当我运行宏时，出现“文件未找到”错误。有谁知道什么是错的？

谢谢！

PS：如果有人有兴趣，这个插件叫做Signature Pad。

来源

2013-04-02 Caleb

貌似我可以将图像，如果它在完全相同的文件夹：

Sub insert() 
    Dim oPic As Shape 
    Set oPic = ActivePresentation.Slides(1).Shapes.AddPicture("image.png", False, True, 0, 0, -1, -1) 
End Sub

这工作，但如果有人知道如何去到另一个文件夹，请让我知道。如果我尝试folder/image.png或/folder/image.png作为文件路径，它不起作用。

来源

2013-04-02 15:09:09 Caleb

我不知道你的第一个代码有什么问题，因为当我为网络中的任何图片运行它时，它都会放在我的演示文稿中。对于计算机上的图片，您应该使用'ChDir c：\ my path \ here'将状态更改为您的选择之一来设置完整路径或设置'当前目录'。 –

@KazJaw也许它在Mac上有所不同？ – Caleb

是的，绝对可以...... –

它并不需要在完全相同的文件夹，但你需要使用的是Mac风格的路径：

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

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

希望有所帮助。

来源

2014-05-01 08:08:38 Rob

使用VBA插入/更新PowerPoint中的图像？

回答

相关问题