View.OriginY

Property OriginY As Double

Member of View

The OriginY property returns or sets the value of the vertical origin of a view.

The following code example adds a view if there are no saved views. The vertical origins of all saved views are then displayed.

Sub Test() 
 Dim Vw As View 
 Dim VwCollection As Views 
 Dim s As String 
 Set VwCollection = ActiveDocument.Views 
 If ActiveDocument.Views.Count = 0 Then 
  VwCollection.AddActiveView "test" 
  For Each Vw In VwCollection 
   s = s & Vw.OriginY & vbCr 
  Next Vw 
 Else 
  For Each Vw In VwCollection 
   s = s & Vw.OriginY & vbCr 
  Next Vw 
 End If 
 MsgBox "The vertical origin's of the saved views are: " & vbCr & s 
 Set Vw = Nothing 
 Set VwCollection = Nothing 
End Sub