Page.Orientation

Property Orientation As cdrPageOrientation

Member of Page

The Orientation property returns or sets the orientation of a page. When setting a different orientation for the page, the values for the width and height are exchanged.

The Orientation property returns a value of cdrPageOrientation.

The following code example inserts a text object on each page, indicating the page orientation of the page:

Sub Test() 
 Dim Orient As String 
 Dim p As Page 
 For Each p In ActiveDocument.Pages 
  If p.Orientation = cdrPortrait Then 
   Orient = "Portrait" 
  Else 
   Orient = "Landscape" 
  End If 
  p.ActiveLayer.CreateArtisticText 0, 0, Orient 
 Next p 
End Sub