Delete the same picture from ALL slides?

[Catalyster]

Hi guys!



New to this forum! I've been working on/re-doing a bunch of slides for a certain project. At the end there comes a time where I have to delete the exact same picture (same exact position and everything - a duplicate on every slide). I do this manually and it's a drag. I was just wondering if there is a possible way to do this (delete the same picture on all slides). The reverse of this (via Slide Master) is possible (i.e. adding the same picture/text-box on all the slides).

Thanks!

[JohnWilson]

Does the image in question have the same NAME on every slide? (If so what is it?)

[Catalyster]

I'm guessing it does since it's a repeat "paste" on every slide. Where would I find out it's name designation from the slide?

[JohnWilson]

Show the Selection Pane and you will see the name.

It's in the HOME Tab >Editing (Select) on the right

[Catalyster]

With your last comment I was able to answer your first question. Yes, they also have the same name on all the slides.

[JohnWilson]

This macro should do it:

Sub deletePix()
Dim osld As Slide
'insert the real name instead of Picture 2
Const PicName As String = "Picture 2"
On Error Resume Next
For Each osld In ActivePresentation.Slides
osld.Shapes(PicName).Delete
Next osld
End Sub

How to use macros

[Catalyster]

Thank you very much. I'll try that

EDIT: It worked. I just had to select all the slides. Much appreciated. This is going to save me a good deal of time

Cheers

[JohnWilson]

Should be no need to select slides!

[Catalyster]

You're right. No need to do that. Just a simple click. If I were to delete more than 1 picture (all the same ofcourse), would I add a "+" in the code or simply a new line. Thanks

[JohnWilson]

PowerPoint allows you to have shapes with the same name on a single slide. This is really bad coding! When you delete though it only deletes the first shape with that name!

To get them all try:

Sub deletePix()
Dim osld As Slide
Dim lngCount As Long
'insert the real name instead of Picture 2
Const PicName As String = "Picture 2"
On Error Resume Next
For Each osld In ActivePresentation.Slides
For lngCount = osld.Shapes.Count To 1 Step -1
If osld.Shapes(lngCount).Name = PicName Then osld.Shapes(lngCount).Delete
osld.Shapes(PicName).Delete
Next lngCount
Next osld
End Sub