expression.Position
expression Required. An expression that returns one of the objects in the Applies To list.
Remarks
Numeric values are evaluated in points; string values can be in any measurement units supported by Microsoft Publisher (for example, "0.25 in").
Example
This example adjusts the text in the second story to 5 points below the baseline.
Sub Position()
Application.ActiveDocument.Stories(2).TextRange.Font.Position = -5
End Sub