#1
|
|||
|
|||
macro for reflecting objects along all slides
hi
im looking for a macro that simply reflect specific objects among all slides. for example if i place a logo on top of a slide'[s picture i want this logo to be reflected on all slides. thanks Shay |
#2
|
|||
|
|||
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 |
#3
|
|||
|
|||
that's great! lets say i used your script over 200 slides and next week my boss will tell me to change to position of the logo...what should i do than ? how can i say "update position in all slide? (hope im not rude
|
#4
|
|||
|
|||
You could kill the boss!
Alternatively you could modify the original script (you will have to start over) Sub paster() Dim osld As Slide If ActiveWindow.Selection.Type = ppSelectionShapes Then ActiveWindow.Selection.ShapeRange.Cut For Each osld In ActivePresentation.Slides With osld.Shapes.Paste .Tags.Add "LOGO", "YES" End With Next osld End If End Sub This does the same thing but adds an invisible tag called "LOGO" to the pasted shapes. When your boss changes his mind - move one logo to the new position and select it then run this second script Sub reposition() Dim osld As Slide Dim oshp As Shape Dim sngL As Single Dim sngT As Single If ActiveWindow.Selection.Type = ppSelectionShapes Then With ActiveWindow.Selection.ShapeRange(1) sngL = .Left sngT = .Top End With For Each osld In ActivePresentation.Slides For Each oshp In osld.Shapes If oshp.Tags("LOGO") = "YES" Then oshp.Left = sngL oshp.Top = sngT Exit For End If Next oshp 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 |