The details are stored in an Excel Sheet. The code stores the PowerPoint slide Name along with slide opening time and slide closing time. 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 & Application.PathSeparator & "record.xlsx") Set oxlapp = CreateObject("Excel.Application") Sub SlideShowBegin(ByVal Wn As SlideShowWindow) Here is the Code for it: Dim slideShowRunning As Boolean Unfortunately! Its not working and there is no Error message And nothing happening when I run this Macro on MAC version big sur (11.6.2) and, Microsoft Office PowerPoint version 365. And I want this same file to work on Mac as well. So here is the VBA Macro Code which I'm using in my Windows PowerPoint perfectly. Because there are very few VBA experts who know to write VBA for MAC. I recently posted this query two times but I got no solution. I wonder if there is someone who can help me make this code work in my MAC.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |