Handout with no animation (PowerPoint 2000)

Topic

New Reply

I have a powerpoint presentation with several animations on each slide.

Could you please let me know if there is a way to print handout or speaker notes without displaying the animation boxes and circles.

Thank you.

Reply | Quote

Replies

You’ll see the Print dialogue box attached. Make sure the checkbox for Include Animations is blank.

HTH

Reply | Quote

I checked all my print settings and Include animations was not checked off. I have attached my file.

Thank you.

Reply | Quote

I think we are talking at cross purposes here, what do you mean by animation boxes and circles. Just so we are trying to solve the same problem .

Reply | Quote

I recommend a manual approach: Save As and create a “clean” version of the file specifically for handouts. As far as I am concerned this is the only “safe” way to go when deleting clip art and animation elements, and the less I put on the handouts, the more entertainment value there is on the screen, which is where I like their attention to be focused. Now, if you make changes after that, you just kill the first “handout” file and do a Save As again. It doesn’t take long to delete a couple dozen drawing elements, but it would take a long time to try to match up textual changes.

Afterthought: Oh, if you have three or more per slide, my method might take longer than you’d like. You could try to automate the deletions, but it could be a bit tricky to code up to remove just the ones you want removed.

Reply | Quote

If you can identify some common characteristic of the shapes that you want to delete, then you can write a simple macro to delete them. For example, if you really wanted to delete every shape that had custom animation, then this macro would do it.

Sub deleteAnimatedShapes()
Dim sld As Slide, i As Integer
    For Each sld In ActivePresentation.Slides
        For i = sld.Shapes.Count To 1 Step -1
            With sld.Shapes(i)
            If .AnimationSettings.Animate Then .Delete
            End With
        Next i
    Next sld
End Sub

However, this does not delete the upper-left oval because it is not animated. Plus this macro is dangerous. If someone has custom animation on a placeholder (the text on your slides), it would also be deleted. Just about everything in PowerPoint is a shape!

If you made all of you boxes and ovals in red then it is again easy:

Sub getTheRedOut()
Dim sld As Slide, i As Integer
    For Each sld In ActivePresentation.Slides
        For i = sld.Shapes.Count To 1 Step -1
            With sld.Shapes(i)
            If .Line.ForeColor = vbRed Then .Delete
            End With
        Next i
    Next sld
End Sub

As Jefferson pointed out, you’ll need to keep two versions of your presentation, one with the drawings – one without. If you’re unclear how to enter/run the macro, just post back. HTH –Sam

Reply | Quote

In addition to the great info you’ve already received, MS MVP Shyam Pillai has a Capture Show addin that many people use to print out a slide as a series of animations. I don’t know if it will allow you to print just the first “slide” in the series (i.e., before the animations) without the rest, but it would be worth taking a look at. It’s free, so it won’t cost anything but time to try! http://www.mvps.org/skp%5B/url%5D

Reply | Quote