|
|
#2
05-04-2012, 04:43 AM
|
|||
|
|||
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 
|
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
 Macro To Delete Instance across multiple slides.
|
excelledsoftware | PowerPoint | 2 | 03-01-2012 07:29 PM |
|
Yes/No slides to take you to different sets of slides
|
psrs0810 | PowerPoint | 2 | 08-17-2011 04:46 PM |
| Powerpoint Macro To Insert Objects Sample | lahuva | PowerPoint | 0 | 07-06-2011 10:51 AM |
| Inserting slides between existing slides in 2003 | watsonstudios | PowerPoint | 1 | 05-20-2011 08:15 PM |
| Macro: chart from excel into PP as objects | Jazz43 | PowerPoint | 0 | 03-05-2011 09:06 AM |
Windows 7 64bit 
Office 2010 32bit
Threaded Mode