Setting oSL to last slide in presentation

[Barb Reinhardt]

I have the following to add a slide to the presentation

Set oSL = aPPS.slides.Add(aPPS.slides.Count + 1, .Shapes(j).Parent.Layout)

but there are times when I want to define oSL as the last slide in the
active presentation. How would I do that?

Thanks

 

[David M. Marcovitz]

Do you mean:

Set oSL = ActivePresentation.Slides(ActivePresentation.Slides.Count)

--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=?=