


I know there are few changes that need to be done to make it work on Mac but can't figure out what. The code won't work when I run it on MAC. The code stores the PowerPoint slide Name along with slide opening Oxlws.Range("A1").Offset(i, 4).Value = Name Oxlws.Range("A1").Offset(i, 3).Value = ivalue Oxlws.Range("A1").Offset(i, 2).Value = edtime Public Sub OnSlideShowTerminate(ByVal Wn As SlideShowWindow) If TypeName(slideShowRunning) = "Empty" Or slideShowRunning = False Then Public Sub OnSlideShowPageChange(ByVal Wn As SlideShowWindow)

Oxlws.Range("A1").Offset(i, 1).Value = sttime Oxlws.Range("A1").Offset(i, 0).Value = st Set oxlwb = (ActivePresentation.Path & "\" & "record.xlsx") Set oxlapp = CreateObject("Excel.Application") Sub SlideShowBegin(ByVal Wn As SlideShowWindow) This VBA code tracks the activity of PowerPoint slides and store the record in an Excel worksheet, saved on my local drive (same folder as the slides): Dim slideShowRunning As Boolean
