有没有办法删除多个 PowerPoint 形状内的文本？

Question

我几乎每天都会使用 PowerPoint 进行报告。我们不喜欢使用文本框，而是喜欢使用带有文本的形状来表达想法，例如文本语句或百分比数字。这是标准做法。

有时我们可能需要复制演示文稿，但替换文本和数字，同时保持形状和位置完全相同。有没有办法一次性删除幻灯片上多个形状中的文本，从而节省大量时间？

目前，我一次双击每个形状，然后按 Delete。

Answer 1

使用 VBA

'All shapes in active slide
Sub DeleteShapeText1()
Dim sh As Shape

   For Each sh In ActiveWindow.View.Slide
      If sh.HasTextFrame Then
         sh.TextFrame.DeleteText
      End If
   Next
End Sub

'Only selected shapes
Sub DeleteShapeText2()
Dim sh As Shape

   For Each sh In ActiveWindow.Selection.ShapeRange
      If sh.HasTextFrame Then
         sh.TextFrame.DeleteText
      End If
   Next
End Sub

Answer 2

您可以双击一个形状，选择所有文本并按删除键。然后选择所有其他需要清空的形状，并按 CTRL+Y 一次清空所有形状。

这是迄今为止我发现的最佳方法，无需使用宏。