|
|
#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
|
|
|
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 |
Windows 7 64bit 
Office 2010 32bit
Threaded Mode