Thread
: [Solved]
macro for reflecting objects along all slides
View Single Post
05-04-2012, 04:43 AM
JohnWilson
Windows 7 64bit
Office 2010 32bit
Programmer
Join Date: Nov 2008
Location: UK
Posts: 1,912
Assuming the logo is selected
Sub paster()
Dim osld As Slide
If ActiveWindow.Selection.Type = ppSelectionShapes Then
ActiveWindow.Selection.ShapeRange.Cut
For Each osld In ActivePresentation.Slides
osld.Shapes.Paste
Next osld
End If
End Sub
__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials
JohnWilson
View Public Profile
Find all posts by JohnWilson