Insert Text with specific Font Size

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

In fact I managed to amend code accordingly

HTML Code:

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

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