LtrRun Method Example

The following example finds all of the shapes on slide one that contain text and changes the text to read from left to right.

ActiveWindow.ViewType = ppViewSlide
For Each sh In ActivePresentation.Slides(1).Shapes
    If sh.HasTextFrame Then
         sh.TextFrame.TextRange.LtrRun
    End If
Next