Copy a picture or other shape to every slide in a presentation
You want to add a logo or other shape to every slide in the presentation. Ordinarily you could just put it on the Slide Master and consider the job done, but what if there will be graphics or other content on some or all of the slides that covers up the shape on the Slide Master?
Uh .. oh.
This little macro will copy a shape to every slide in your presentation.
It assumes you've added the shape to Slide 1 of your presentation and have selected it (and only it). It does no error checking to make sure you play by the rules. It'll break if you don't (but it won't harm anything).
Sub SuperDuper()) Dim oSh as Shape Dim x as Long Set oSh=ActiveWindow.Selection.ShapeRange(1) oSh.Copy For x = 2 to ActivePresentation.Slides.Count ActivePresentation.Slides(x).Shapes.Paste Next End Sub
See How do I use VBA code in PowerPoint? to learn how to use this example code.