Need macro to copy object on slide 4 to current slide

djlee · #1 02-10-2015, 10:21 PM

I have a collection of frequently used shapes on slide 4 of my presentation. I find myself copying and pasting shapes from that slide to other slides frequently. I need a macro to go to slide 4 and copy a specified shape to the current slide.

Is it possible to copy a specific shape from slide 4 to the current slide?

DJ

P.S. In Excel, I could name the shape, but I don't see how to do that in PowerPoint. So do I need to put the shapes I want to copy on separate slides or can I have multiple shapes on the slide even though I only want to copy a one?

JohnWilson · #2 02-11-2015, 12:34 AM

You can name the shapes by opening the selection pane (Home Tab>Select menu) and just select and change the name e.g. to "target"

Then this should work

Code:

Sub copyIt()
Dim oshp As Shape
Dim osld As Slide
On Error Resume Next
Err.Clear
Set osld = ActivePresentation.Slides(4)
Set oshp = osld.Shapes("target")
If Not oshp Is Nothing Then
oshp.Copy
Set osld = ActiveWindow.Selection.SlideRange(1)
If Not osld Is Nothing Then osld.Shapes.Paste
End If
End Sub

djlee · #3 02-11-2015, 10:37 AM

Thank you so much. Works perfectly.

DJ

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How can I reload the same slide from the current slide	Jasonwagner2012@knights	PowerPoint	4	01-13-2015 07:06 AM
Click an object on a slide, show another object on the same slide.	meppley7	PowerPoint	2	04-28-2014 01:44 PM
Save Current Slide as Picture	excelledsoftware	PowerPoint	2	01-18-2012 02:42 PM
slide image wont copy with text to new slide	lewis.mulhollen	PowerPoint	1	12-17-2011 03:17 AM
Maintaining a shrunken object from slide to slide	Straitsfan	PowerPoint	0	05-18-2011 01:04 PM