I have the following code (VBA for PowerPoint 2010) to create a slide at the end of a presentation and insert title text:
longSlideCount = ActivePresentation.Slides.Count
With ActivePresentation.Slides
Set slideObject = .Add(longSlideCount + 1, ppLayoutTitleOnly)
End With
slideObject.Shapes.Title.TextFrame.TextRange.Text = "This is the Main Title Text"
I would like to know how to:
- Insert 'Subtitle' text (smaller font, on a new line immediately below the main title text)
- Change the font and size of the main title text and the subtitle text
Thanks in advance!!!