LinesUp Property

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