RtlRun Method Example

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

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