1

我正在制作一个交互式 Powerpoint 演示文稿，该演示文稿之前从我的本地服务器 (XAMPP) 读取了一个文本文件并显示了它。我现在想更新它，以便用户可以手写他们的响应，并将其显示在幻灯片上。我有一个 jQuery 插件，可以让某人使用手写笔，并将“绘图”保存为本地服务器上的图像。

我的问题是，如何使用 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。

4

2 回答 2

2

看起来我可以插入图像，如果它在完全相同的文件夹中：

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-02T15:09:09.483 回答
1

它不需要位于完全相同的文件夹中，但您确实需要使用 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-01T08:08:38.520 回答