PowerPoint: Как удалить все пустые текстовые поля одновременно?

Question

В определенном ppt-файле много текстовых полей, в которых ничего нет. Как удалить все пустые текстовые поля одновременно?

Кроме того, эти пустые текстовые поля находятся не только на одной странице файла.

Answer 1

Нет прямого способа удалить только пустые текстовые поля в PowerPoint, но вместо этого вы можете использовать макрос.

1. Откройте презентацию PowerPoint и нажмите Alt+F11. Откроется окно VBA.
2. Вставить -> Модуль
3. Скопируйте и вставьте код ниже.

Sub RemoveTextboxes()

Dim SlideToCheck As Slide

Dim ShapeIndex As Integer

Для каждого SlideToCheck в ActivePresentation.Слайды

Для ShapeIndex = SlideToCheck.Формы.Считать до 1 шаг -1

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

SlideToCheck.Формы (ShapeIndex).удалять

Конец, если

следующий

следующий

End Sub

4. Вернитесь в PowerPoint, перейдите на вкладку «Разработчик» (активируйте вкладку «Разработчик» ниже), нажмите «Макросы», выберите RemoveTextboxes () и нажмите «Выполнить».

5. Готово! Это обнаружит все пустые текстовые поля из вашей презентации PowerPoint.

---

Как заставить разработчика вкладку появляться

1. Файл -> Параметры -> Настроить ленту -> В списке главных вкладок установите флажок Разработчик. СДЕЛАННЫЙ!

Answer 2

Выбрать элементы для действия \ удаления: это можно сделать с помощью эфира CTRL-A или вы можете выбрать элементы в квадратном квадрате с помощью мыши (удерживая нажатой левую кнопку). Тогда пробей DEL