![PowerPoint:如何一次删除所有空白文本框?](https://linux22.com/image/1498932/PowerPoint%EF%BC%9A%E5%A6%82%E4%BD%95%E4%B8%80%E6%AC%A1%E5%88%A0%E9%99%A4%E6%89%80%E6%9C%89%E7%A9%BA%E7%99%BD%E6%96%87%E6%9C%AC%E6%A1%86%EF%BC%9F.png)
某个ppt文件中有很多文本框,但是里面没有任何内容,如何一次性删除所有空白文本框?
此外,这些空白文本框不仅位于文件的一页中。
答案1
选择要操作\删除的项目:可以使用 CTRL-A 或使用鼠标选择方框内的项目(按住鼠标左键)。然后按 DEL
答案2
没有直接的方法可以仅删除 PowerPoint 中的空文本框,但您可以使用宏。
- 打开 PowerPoint 演示文稿并按Alt+F11. VBA 窗口将会出现。
- 插入 -> 模块
- 复制并粘贴下面的代码。
子删除文本框()
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
万一
下一个
下一个
子目录结束
返回 PowerPoint,转到“开发人员”选项卡(在下面激活“开发人员”选项卡),按“宏”,选择 RemoveTextboxes() 并单击“运行”。
完成!这将从您的 PowerPoint 演示文稿中删除所有空文本框。
如何显示“开发人员”选项卡
- 文件 -> 选项 -> 自定义功能区 -> 在主选项卡列表中选中开发人员框。完成!