有没有办法在powerpoint幻灯片中选择文本

Question

我已经在powerpoint 2013中创建了一个演示文稿，并且需要在演示模式期间使文本可选（用于复制/粘贴目的）（最终将在kiosk模式下使用）。有没有办法用VBA做到这一点？

Answer 1

不直接，但如果您只想从某些形状获取文本，则可以为形状指定RunMacro操作设置。例如，您可以将它作为演示运行此宏：

Sub GrabTheText(oSh as Shape)
   MsgBox oSh.TextFrame.TextRange.Text
End Sub

这将为您提供oSh中单击形状的参考，以便您可以随意执行任何操作。 显然，您不希望将操作设置分配给任何不能或不能保存文本的形状，否则宏将会出错。或者您可以疯狂地将其分配给所有内容并将错误处理代码添加到宏。