Remove Slide Image from Notes Page

[sbats]

As I page through a presentation in Notes Page view, I need to be able to delete the slide image from the current page and leave only the text frame.

I have no clue on how to do this.

Thanks,

Steve

[Paul_Hossler]

http://www.pptfaq.com/FAQ00481_Export_the_notes_text_of_a_presentation.htm


Doable, but possible alternative is to just extract the note text (and optional slide title) into a separate text file

That way you won't have a large empty top half that needs to be adjusted

[Paul_Hossler]

Otherwise you can try something like this, but personally, I like the extract the notes text to a separate file technique




Option Explicit
Sub DeleteNotesImage()
Dim oSlides As Slides
Dim oSlide As Slide
Dim oShape As Shape

Set oSlides = ActivePresentation.Slides
For Each oSlide In oSlides
For Each oShape In oSlide.NotesPage.Shapes
With oShape
If .Type = msoPlaceholder Then
If .PlaceholderFormat.Type = ppPlaceholderTitle Then
If .PlaceholderFormat.ContainedType = msoAutoShape Then .Delete
End If
End If
End With
Next
Next
End Sub

[sbats]

Thanks. That worked really well. But it deleted the slide image from every notes page.
I only want to delete the slide image from the note page that I am currently looking at.

[sbats]

I've made a change that will use a message box to ask me if I want to delete the current image. It works nicely. The only problem is it doesn't change the document window to the current image so I can't see what I'm deleting.

Sub DeleteNotesImage()
Dim ButtonChosen As Integer
Dim oSlides As Slides
Dim oSlide As Slide
Dim oShape As Shape

Set oSlides = ActivePresentation.Slides
For Each oSlide In oSlides
For Each oShape In oSlide.NotesPage.Shapes
With oShape
If .Type = msoPlaceholder Then
If .PlaceholderFormat.Type = ppPlaceholderTitle Then
If .PlaceholderFormat.ContainedType = msoAutoShape Then
ButtonChosen = MsgBox("Delete this One??", vbQuestion + vbYesNo + vbDefaultButton2, "Continue?")
If ButtonChosen = vbYes Then .Delete
End If
End If
End If
End With
Next
Next
End Sub

[sbats]

I got it working the way I needed it to!

Run the macro. It goes to each Notes Page and asks if I want to delete the slide image.

Sub DeleteNotesImage()
Dim ButtonChosen As Integer
Dim oSlides As Slides
Dim oSlide As Slide
Dim oShape As Shape

Set oSlides = ActivePresentation.Slides
For Each oSlide In oSlides
ActiveWindow.View.GotoSlide (oSlide.SlideIndex)
For Each oShape In oSlide.NotesPage.Shapes
With oShape
If .Type = msoPlaceholder Then
If .PlaceholderFormat.Type = ppPlaceholderTitle Then
If .PlaceholderFormat.ContainedType = msoAutoShape Then
ButtonChosen = MsgBox("Delete this One??", vbQuestion + vbYesNo + vbDefaultButton2, "Continue?")
If ButtonChosen = vbYes Then .Delete
End If
End If
End If
End With
Next
Next
End Sub

[John Wilson]

I'm just wondering why you cannot just select the image and press DELETE?

[sbats]

John,
The issue is that I'm converting a large number of files and need to delete the object on a lot of pages. I have automated it so that the macro go to each notes page and selects the object then asks whether or not to delete it.
This saves me a lot of clicking.