Application.ActivePresentation (PowerPoint)

Devuelve un objeto Presentation que representa la presentación abierta en la ventana activa. Solo lectura.

Si una presentación incrustada está activa en contexto, la propiedad ActivePresentation devuelve la presentación incrustada.

MyPath = Application.Path & "\TestFile"

Application.ActivePresentation.SaveAs MyPath