Programmatically copying an object from one presentation to anothe

[Barb Reinhardt]

I want to copy object .shapes(j) from a presentation I'm calling oPPS to a
new pages in aPPS. How do I insert a new slide into aPPS and then copy the
shape onto that slide?

Thanks

 

[Michael Koerner]

Select and Copy the shape in oPPS Open aPPS and pres Ctrl+M to insert a new
slide, then paste your shape into the new slide

 

[Barb Reinhardt]

I know how to do it manually. How do I do it programmatically?

Thanks

 

[Barb Reinhardt]

Thanks for your feedback. I'm having problems with this line:

Set oSl = aPPS.Slides.Add(aPPS.SlidesCount+1, .Shapes(j).Parent.Layout)

Probably because initially, I create a new presentation programmatically
with no slides in it. How do I address that?

 

[David M. Marcovitz]

It looks like Steve is in danger of losing his Championship Air Code
title. Trying putting a dot between Slides and Count. The fact that there
are no slides shouldn't make a difference because aPPS.Slides.Count
should be 0 so adding 1 to that will mean tht the line tries to put a
slide at position 1.
--David

--
David M. Marcovitz
Microsoft PowerPoint MVP
Director of Graduate Programs in Educational Technology
Loyola College in Maryland
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/

=?Utf-8?B?QmFyYiBSZWluaGFyZHQ=?=

 

[Barb Reinhardt]

Thanks, that did it (after I fixed another typo as well).