Need to enable the objects to also be inserted into current slide in normal view, not just a selecte

[Tyron]

Need to enable the objects to also be inserted into current slide in
normal view, not just a selected slide. Also need the if statement to
work taking that into consideration



Private Sub TableA_Click()
If ActiveWindow.Selection.Type = ppSelectionSlides Then
Else
MsgBox "Must select a slide"
Exit Sub
End If
With Presentations.Open("G:\Tyronne Soanes\Testingb.ppt", msoFalse)
.Slides(54).Shapes.Range(Array("Text Box 7", "Rectangle 3", "Object
9")).Copy
.Close
End With
ActiveWindow.Selection.SlideRange(1).Shapes.Paste
End Sub

 

[Bill Dilworth]

Look at the code in:
http://skp.mvps.org/ppt00044.htm

It should answer your question.


--
Bill Dilworth
A proud member of the Microsoft PPT MVP Team
Users helping fellow users.
http://billdilworth.mvps.org
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
yahoo2@ Please read the PowerPoint
yahoo. FAQ pages. They answer most
com of our questions.
www.pptfaq.com
..
..