PowerPoint：如何一次删除所有空白文本框？

3

在某些ppt文件中有许多文本框内部没有任何内容。如何一次删除所有空白文本框？

此外，这些空白文本框不仅包含文件的一页。

microsoft-office microsoft-powerpoint

— guo
source

使用CTRL + A，您可以选择所有在页面上的框，然后使用CTRL +单击取消选择带有文本的框（单击文本本身）。我怀疑有没有更好的方法来做到这一点。

— Aganju

2

选择动作\删除项目：可以使用以太网CTRL-A完成此操作，也可以使用鼠标选择方框内的项目（按住左键）。然后打DEL

— gatorback
source

2

没有直接的方法只删除PowerPoint中的空文本框，但您可以使用宏。

打开PowerPoint演示文稿，然后按 Alt + F11 。将出现VBA窗口。
插入 - ＆gt;模
复制并粘贴以下代码。

Sub RemoveTextboxes（）

Dim SlideToCheck作为幻灯片

Dim ShapeIndex As Integer

对于每个SlideToCheck在ActivePresentation.Slides中

对于ShapeIndex = SlideToCheck.Shapes.Count到1步-1
  If SlideToCheck.Shapes(ShapeIndex).Type = msoTextBox And _
  Not SlideToCheck.Shapes(ShapeIndex).TextFrame.HasText Then
SlideToCheck.Shapes（形状指标）.Delete

万一

下一个

下一个

结束子

返回PowerPoint，转到Developer Tab（激活Developer Tab），按Macros，选择RemoveTextboxes（）并单击Run。
完成！这将删除PowerPoint演示文稿中的所有空文本框。

如何使Developer TAB出现

文件 - ＆gt;选项 - ＆gt;自定义功能区 - ＆gt;在主选项卡列表中，选中开发人员框。 DONE！

— User552853
source