PowerPoint - Hidden object removal.

[Tony]

Recently I began taking advantage of the powerful animation features of
PowerPoint. I'm even using commercially available animations to improve the
effectiveness of presentations and training materials. However, all the
animations are creating numerous hidden layers in each slide, and all the
layers are creating problems for the printing services provider who produces
my workshop books.

Does anyone know where I can find (purchase) a PowerPoint add-in that
automatically makes a duplicate of the currently active presentation and
removes the hidden objects from each slide of the duplicate only?

Tony

 

[Steve Rindsberg]

Recently I began taking advantage of the powerful animation features of
PowerPoint. I'm even using commercially available animations to improve the
effectiveness of presentations and training materials. However, all the
animations are creating numerous hidden layers in each slide, and all the
layers are creating problems for the printing services provider who produces
my workshop books.

Does anyone know where I can find (purchase) a PowerPoint add-in that
automatically makes a duplicate of the currently active presentation and
removes the hidden objects from each slide of the duplicate only?

I'm not sure what you mean by layers, exactly. PowerPoint doesn't have layers.

If it's just a matter of removing hidden shapes, open your presentation, save
it to a new name then run this to delete all shapes that aren't visible:

Sub RemoveHiddenShapes()

Dim oSl as Slide
Dim x as Long

For Each oSl in ActivePresentation.Slides
For x = oSl.Shapes to 1 Step -1
If Not oSl.Shapes(x).Visble Then
oSl.Shapes(x).Delete
End If
Next ' Shape
Next ' Slide

End Sub