Microsoft Office Forums macro for reflecting objects along all slides

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 05-03-2012, 11:11 PM
samifox samifox is offline macro for reflecting objects along all slides Windows XP macro for reflecting objects along all slides Office 2010 32bit
Novice
macro for reflecting objects along all slides
 
Join Date: May 2012
Posts: 8
samifox is on a distinguished road
Default 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
Reply With Quote
  #2  
Old 05-04-2012, 04:43 AM
JohnWilson JohnWilson is offline macro for reflecting objects along all slides Windows 7 64bit macro for reflecting objects along all slides Office 2010 32bit
Programmer
 
Join Date: Nov 2008
Location: UK
Posts: 1,791
JohnWilson will become famous soon enoughJohnWilson will become famous soon enough
Default

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
Free Advanced PowerPoint Tips and Tutorials
Reply With Quote
  #3  
Old 05-04-2012, 02:29 PM
samifox samifox is offline macro for reflecting objects along all slides Windows XP macro for reflecting objects along all slides Office 2010 32bit
Novice
macro for reflecting objects along all slides
 
Join Date: May 2012
Posts: 8
samifox is on a distinguished road
Default

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
Reply With Quote
  #4  
Old 05-05-2012, 01:58 AM
JohnWilson JohnWilson is offline macro for reflecting objects along all slides Windows 7 64bit macro for reflecting objects along all slides Office 2010 32bit
Programmer
 
Join Date: Nov 2008
Location: UK
Posts: 1,791
JohnWilson will become famous soon enoughJohnWilson will become famous soon enough
Default

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
__________________
Microsoft PowerPoint MVP
Free Advanced PowerPoint Tips and Tutorials
Reply With Quote
Reply

Thread Tools
Display Modes


Similar Threads
Thread Thread Starter Forum Replies Last Post
macro for reflecting objects along all slides Macro To Delete Instance across multiple slides. excelledsoftware PowerPoint 2 03-01-2012 07:29 PM
macro for reflecting objects along all slides 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


All times are GMT -7. The time now is 03:09 PM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2019 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft