expression.LinesUp
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example creates a custom dropped capital letter that is five lines high and raises it two lines above the line on which it exists.
Sub RaisedDropCap()
Dim intCount As Integer
With ActiveDocument.Pages(1).Shapes _
.AddTextbox(Orientation:=pbTextOrientationHorizontal, _
Left:=100, Top:=100, Width:=100, Height:=100) _
.TextFrame.TextRange
For intCount = 1 To 10
.InsertAfter NewText:="This is a test. "
Next intCount
With .DropCap
.Size = 5
.LinesUp = 2
End With
End With
End Sub