☰

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

tag-icon • tag-icon microsoft-office microsoft-powerpoint
PowerPoint：如何一次删除所有空白文本框？

某个ppt文件中有很多文本框，但是里面没有任何内容，如何一次性删除所有空白文本框？

此外，这些空白文本框不仅位于文件的一页中。

答案1

选择要操作\删除的项目：可以使用 CTRL-A 或使用鼠标选择方框内的项目（按住鼠标左键）。然后按 DEL

答案2

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

  1. 打开 PowerPoint 演示文稿并按Alt+F11. VBA 窗口将会出现。
  2. 插入 -> 模块
  3. 复制并粘贴下面的代码。

子删除文本框()

Dim SlideToCheck 作为幻灯片

Dim ShapeIndex 作为整数

对于 ActivePresentation.Slides 中的每个 SlideToCheck

对于 ShapeIndex = SlideToCheck.Shapes.Count 到 1 步骤 -1

  If SlideToCheck.Shapes(ShapeIndex).Type = msoTextBox And _
  Not SlideToCheck.Shapes(ShapeIndex).TextFrame.HasText Then

SlideToCheck.Shapes(ShapeIndex).Delete

万一

下一个

下一个

子目录结束

  1. 返回 PowerPoint，转到“开发人员”选项卡（在下面激活“开发人员”选项卡），按“宏”，选择 RemoveTextboxes() 并单击“运行”。

  2. 完成！这将从您的 PowerPoint 演示文稿中删除所有空文本框。

如何显示“开发人员”选项卡

  1. 文件 -> 选项 -> 自定义功能区 -> 在主选项卡列表中选中开发人员框。完成！

相关内容