VBA PowerPoint: review macro to create table of content as of slide 2 and create related table based on color of the presentation

Hello experts,

I have the follwing VBA PowerPoint macro:

I was wondering if there is a way to:

1-Insert table of content as of slide number 2 after the cover page

2-Adapt the color table based on the color used by the user at the design/View=>slide master.

'***************************************************************************
'#
' Purpose: create a table of contents slide.
' Method:  Create a new slide and add a table of contents to it based on the
'          text in title placeholders across all slides in the active presentation
'          and add hyperlinks to the slide numbers within the table.
'EE question: 29178609
' Validation date 2020/04/27
'***************************************************************************
Sub Create_Table_Of_Content()
  Dim oTOC As Slide
  Dim oSld As Slide
  Dim tTitle As String
  Dim oTable As Table
  Dim oTR As TextRange
  
  On Error Resume Next
  
  ' Create a new slide based on the layout of your choice
  With ActivePresentation
    ' Change the custom layout index to the one you want to use for the TOC slide
    Set oTOC = .Slides.AddSlide(1, .SlideMaster.CustomLayouts(2))
  End With
  
  ' Add new table to the new slide
  Set oTable = oTOC.Shapes.AddTable(1, 2).Table
  
  ' Create column headers
  With oTable
    .Cell(1, 1).Shape.TextFrame.TextRange.Text = "Slide Title"
    .Cell(1, 2).Shape.TextFrame.TextRange.Text = "Slide Number"
  End With
  
  ' Add slide titles and linked slide numbers to the table
  For Each oSld In ActivePresentation.Slides
    If oSld.Shapes.HasTitle And oSld.SlideIndex > 1 Then
      With oSld.Shapes.Title.TextFrame.TextRange
        tTitle = IIf(.Text = "", "No title", .Text)
        With oTable
          .Rows.Add
          .Cell(.Rows.Count, 1).Shape.TextFrame.TextRange.Text = tTitle
          With .Cell(.Rows.Count, 2).Shape.TextFrame
            Set oTR = .TextRange.InsertAfter(oSld.SlideIndex)
            With oTR.ActionSettings.Item(ppMouseClick)
              .Hyperlink.SubAddress = oSld.SlideID & "," & oSld.SlideIndex & "," & tTitle
            End With
          End With
        End With
      End With
    End If
  Next
  
  oTOC.Select
  
End Sub

Select allOpen in new window