Removing Powerpoint slide comments

I am working as a sales consultant and use Powerpoint slides quite often to describe the presented material. Many time some of the Powerpoint slides are annotated by someone else and if I want to deliver the PPT to the customers/partners I must remove the annotations. Doing this manually is time-consuming. Here is a trick to add a simple Visual Basic macro that automatically removes the annotations and leaves the slides.

Sub DelNotesShapes()
Dim oSld As Slide
For Each oSld In ActivePresentation.Slides
If oSld.NotesPage.Shapes.Count > 0 Then
End If
Next oSld
Set oSld = Nothing
End Sub

Press Alt-F11, choose from menu Insert->Module and copy above VBA code to the editor. Press Save and exit the VBA editor.
Run the macro in PPT with Alt-F8, choosing above macro name DelNotesShapes and "Run". After this all the notes/annotations are removed.

1 comment:

Anonymous said...

Nice Post

Project Management Software