Execute hyperlink automatically

110 Views Asked by At

I have VBA code that I'm using in PowerPoint to execute hyperlink automatically, but it doesn't work and I cant seem to find what is happening, here is the code:


Sub OnSlideShowPageChange(ByVal Wn As SlideShowWindow)
    ' This code runs when the slide changes during a slideshow

    ' Check if the current slide is the last slide
    If Wn.View.CurrentShowPosition = Wn.Presentation.Slides.Count Then
        ' Follow the hyperlink to "Loop Presentation" located on the desktop
        Wn.Presentation.FollowHyperlink Address:="C:\Users\YourUsername\Desktop\hyperlilnk test 2.pptx"
    End If
End Sub

I wanted this code to execute at the end of presentation to open another presentation through hyper link

0

There are 0 best solutions below