Microsoft Office Forums - View Single Post - [Solved] Need macro to copy object on slide 4 to current slide

JohnWilson · 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