Insert Text with specific Font Size

[Nick70]

Hi,

I have a macro that inserts a text ("NEW") in a specific slide (in this case slide 2).


I would now like to amend the font of this text to Font Size 20.

What code should I add to do this?

Current Code

Sub Textboxnew()
    Dim myTextBox As Shape
    With ActivePresentation.Slides(2)
        Set myTextBox = .Shapes.AddTextbox _
            (Orientation:=msoTextOrientationHorizontal, Left:=450, Top:=20, _
            Width:=100, Height:=100)
        myTextBox.TextFrame.TextRange.Text = "NEW"
        myTextBox.TextFrame.TextRange.Font.Color.RGB = vbRed
    End With
End Sub

Thanks,
Nic

[Nick70]

In fact I managed to amend code accordingly

Sub Textboxnew()
    Dim myTextBox As Shape
    With ActivePresentation.Slides(1)
        Set myTextBox = .Shapes.AddTextbox _
            (Orientation:=msoTextOrientationHorizontal, Left:=450, Top:=20, _
            Width:=100, Height:=100)
        myTextBox.TextFrame.TextRange.Text = "NEW"
        myTextBox.TextFrame.TextRange.Font.Color.RGB = vbRed
        myTextBox.TextFrame.TextRange.Font.Size = 20
    End With
End Sub