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

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

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