I am in the process of automating a monthly report using VBA (Power Point Presentation).
I can not seem to add a sub heading to my current code. Thus far, I am able to add create the power point presentation (not shown entirely) and I have a heading (Shown Below). But I can not add a sub heading just below my current heading, change the font size and lastly font style.

Please see the current code (Short snippet of the entire code) I have:

Dim myPresentation As Object
Dim mySlide As Object
Dim PowerPointApp As Object
Dim shp As Object
Dim MySlideArray As Variant

'----- 1 -----
Set mySlide = myPresentation.Slides.Add(1, 11) '11 = ppLayoutTitleOnly
mySlide.Shapes(1).TextFrame.TextRange.Text = "Heading Title Displayed Thus Far"
mySlide.Shapes(1).TextFrame.TextRange.Paragraphs.ParagraphFormat.Alignment = msoAlignLeft
mySlide.Shapes(1).TextFrame.TextRange.Font.Color.RGB = RGB(0, 174, 239)
mySlide.Shapes(1).Left = 2.92 * 28.34646
mySlide.Shapes(1).Top = 0.71 * 28.34646

Thank you.