3

I use PowerPoint almost daily as part of my job for reporting. Instead of using text boxes, we like to use Shapes with text inside it to put across ideas e.g. text statements or percentage figures. This is standard practice.

Sometimes we might have to duplicate the presentation but replace the text and numbers however keeping the Shapes and position exactly the same. Is there a way to delete the text from multiple shapes on a slide at once thus saving me a lot of time?

Currently, I double-click within each Shape one at a time and then press Delete.

Dec
  • 35

2 Answers2

2

Using 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
Mario
  • 38
  • 6
0

You can double click on one shape, select all text and press delete. Then select all the other shapes that you need to empty and press CTRL+Y to empty them all at once.

It's the best way I found so far, without using a macro.

Théo F
  • 1