Breaking News: Grepper is joining You.com. Read the official announcement!

PPTX contents page

answered on July 5, 2021 Popularity 4/10 Helpfulness 1/10

answer PPTX contents page

PPTX contents page

Comment

Sub TableOfContentUpdater()
    Dim pTableOfContent As Slide
    Set pTableOfContent = ActivePresentation.Slides(2)
    
    For Each pHyperLink In pTableOfContent.Hyperlinks
        Dim pLinkNumber As String
        Dim pLinkedSlide As Slide
        pLinkNumber = Left(pHyperLink.SubAddress, InStr(pHyperLink.SubAddress, ",") - 1)
        pHyperLink.TextToDisplay = ActivePresentation.Slides.FindBySlideID(CLng(pLinkNumber)).SlideIndex
    Next pHyperLink
End Sub

Popularity 4/10 Helpfulness 1/10 Language whatever

Source: blog.thoughtlabs.com

Tags: whatever

Link to this answer
Share Copy Link