animegamer4422

    ' Add a new slide (Title and Subtitle layout)
    Dim slide As Object
    Set slide = pres.Slides.Add(slideIndex, 1)
    
    ' Set title and subtitle
    slide.Shapes(1).TextFrame.TextRange.Text = title
    slide.Shapes(2).TextFrame.TextRange.Text = subtitle
End Sub