Question

I am trying to use VBA to insert some text into a PowerPoint TextRange, I use something like this:

ActiveWindow.Selection.SlideRange.Shapes("rec1").TextFrame.TextRange.Text = "Hi"

However, I can’t figure out how to apply bold, italic and underline programmatically (I don’t see a .RichText property or something similar).

What I have is some simple HTML text with bold, italic and underlined text I would like to convert over.

How to do this?

Answer 1

This is easily accomplished by using the TextRange‘s Characters, Words, Sentences, Runs and Paragraphs objects and then it’s Font object to set Bold, Underline and Italic (amongst other properties). For example:

Sub setTextDetails()
    Dim tr As TextRange
    Set tr = ActiveWindow.Selection.SlideRange.Shapes(1).TextFrame.TextRange
        With tr
            .Text = "Hi There Buddy!"
            .Words(1).Font.Bold = msoTrue
            .Runs(1).Font.Italic = msoTrue
            .Paragraphs(1).Font.Underline = msoTrue
        End With
End Sub