TextRange.VertShift

Property VertShift As Long

Member of TextRange

The VertShift property returns or sets the amount by which the text is shifted vertically.

The following code example shifts the paragraph vertically:

Sub Test() 
 Dim d As Document 
 Dim s As Shape 
 Dim t As Text 
 Set d = CreateDocument 
 Set s = d.ActiveLayer.CreateParagraphText(3, 3, 5, 5, "This is an 
example.") 
 Set t = s.Text 
 t.Story.VertShift = 3 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.