Insert Text with specific Font Size

Nick70 · #1 08-10-2016, 09:37 AM

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

HTML 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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
VBA Word - Find Text Font Color - Insert New Text	jc491	Word VBA	2	01-04-2016 05:42 PM
Macro to insert multiple pictures to word to a specific size and text wrap	mescaL	Word VBA	3	11-03-2014 10:51 PM
Deleting all text except text of a certain font size	JustAboutNoon	Word VBA	3	10-09-2014 10:21 AM
Quickest way to change text to Arial size 11 specific colour	BlueClearSky	Word	6	11-22-2013 03:34 PM
Font size of track changes balloon text	Oryctolagus	Word	1	11-13-2013 09:27 AM