VBA-Underlined text

[Edward]

Hi everybody,
I have the following code
ActivePresentation.Slides(sldNum).Shapes(2).TextFrame.TextRange.InsertAfter
= Chr(9) + Chr(9) + "test" + vbCr

how can I have "test" be underlined?

 

[Edward]

Thanks Steve as always
--
Best regards,
Edward

Hi Edward,

Change it to something like this:

With ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange
.InsertAfter = Chr(9) + Chr(9) + "test" + vbCr
.Characters(InStr(.Text, "test"), Len("test")).Font.Underline = msoTrue
End With



==============================
PPT Frequently Asked Questions
http://www.pptfaq.com/

PPTools add-ins for PowerPoint
http://www.pptools.com/