Orientation Property Example

This example orients the text horizontally within shape three on myDocument.

Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes(3).TextFrame _
    .Orientation = msoTextOrientationHorizontal