PPtx Macros that work

Question 1

C&P locate and remove the graphic that is causing inconsistencies/ background
——————————->

Answer 1

Sub RemoveGraphics()
Dim slide As slide
Dim shape As shape
For Each slide In ActivePresentation.Slides
For Each shape In slide.Shapes
If shape.Type = msoPicture Then
shape.Delete
End If
Next shape
Next slide
End Sub