如何在演示时更新 PowerPoint 幻灯片

Question

我需要找到一种方法，根据观众反馈（即观众对图像进行投票，然后将该图像放在幻灯片上）来更新演示文稿中的图像。

我担心在演示模式下进行编辑的风险以及编辑者在演示过程中无意中退出幻灯片的风险。

是否有任何附加组件等可用于 PowerPoint 在演示过程中编辑/修改幻灯片，同时尽可能防止弄乱实时演示的风险？

到目前为止的想法：

• 使用 LiveWeb 插件和 FTP 站点/Dropbox 指向图像并根据观众反馈覆盖 LiveWeb 幻灯片上的图像（对于现场编辑来说太复杂）
• 在共享网络上远程更新演示文稿（不确定 PPT 是否会实时更新。）。
• 更新：只要演示文稿使用“演示者视图”和扩展显示器，您就可以浏览整个计算机并编辑 PowerPoint 上的任何幻灯片。编辑后的幻灯片将在实时演示中显示更新的内容/图像。但是，这样做会暂停实时演示。因此，如果演示者需要在您编辑时转到下一张幻灯片或激活动画，则在演示恢复之前不会发生这种情况。只要演示者在编辑器完成编辑之前不尝试移动到下一张幻灯片，这似乎就可以工作。是否有允许同时编辑和导航演示文稿的加载项？

以前有人做过这样的事情吗？为了让它在现场演示中发挥作用，您做了什么？

Answer 1

这确实非常简单，尤其是当您说要更改当前不在视图中的幻灯片时（由于某些 PPT 版本中的错误，这可能会变得棘手）。

将其添加到演示文稿中的 VBA 模块。
您必须将演示文稿保存为 PPTM 或 PPSM，而不是 PPTX/PPTX。

按照注释中包含的说明进行操作：

Option Explicit

' We'll modify slide #4 ... change as needed
' Make sure that the slide has no empty content or picture placeholders on it
Const lSlideNum As Long = 4

Sub AddAnImage()
    ' add a shape to any slide you like
    ' assign the shape an Action Setting of Run Macro: AddAnImage

    Dim oSl As Slide
    Dim oSh As Shape

    Set oSl = ActivePresentation.Slides(lSlideNum)

    ' bring in the image; setting width/height to -1 ensures that you
    ' don't distort it
    Set oSh = oSl.Shapes.AddPicture("c:\temp\photo.jpg", msoFalse, msoTrue, 0, 0, -1, -1)

    With oSh
        .LockAspectRatio = msoTrue ' to make sure it stays undistorted
        ' change its position/size as you wish
        ' for example, let's make it the full width of the slide:
        .Width = ActivePresentation.PageSetup.SlideWidth
    End With

End Sub