The routine given below returns the active slide in any view. The Selection object has a type that indicates what has been selected. You can select slides, shapes or text. The Selection object has three distinct members - SlideRange, ShapeRange and TextRange - corresponding to these selections. One thing to note is that: irrespective of what the selection is, PowerPoint still keeps valid entries in SlideRange member of the Selection object. The GetActiveSlide() function makes use of this knowledge. Function GetActiveSlide(ByVal
Wnd
As Object) As Slide |