PowerPoint VBAでは、SlideRangeオブジェクトのSlideIndexプロパティを使ったActiveWindow.Selection.SlideRange.SlideIndexというコードで、現在のスライド番号を取得できます。