API Documentation > CorelDRAW > 2025-v26 > TextRange > IVGTextRange
TextRange.SetLineSpacing method
Sets the line spacing properties of the text range
Syntax:
Sub SetLineSpacing(ByVal Type As cdrLineSpacingType, Optional ByVal LineSpacing As Single = -1, Optional ByVal ParaBefore As Single = -1, Optional ByVal ParaAfter As Single = -1)
Parameters:
Name Type Description
Type
LineSpacing
Single
Specifies the value for line spacing.
ParaBefore
Single
ParaAfter
Single
Remarks:
The SetLineSpacing method sets the line-spacing properties for a text range.
Examples:
The following VBA example sets the line spacing to a percentage of the character height, verifying that the option was applied.
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 " & _
  "sample text to illustrate the line spacing in the " & _
  "TextRange object.")
Set t = s.Text
t.Story.SetLineSpacing cdrPercentOfCharacterHeightLineSpacing, 0.3, 0.2, 0.4
If t.Story.LineSpacingType = cdrPercentOfCharacterHeightLineSpacing Then
  If t.Story.LineSpacingType = cdrPercentOfCharacterHeightLineSpacing Then

 MsgBox "The line spacing is set to a percentage of the " & _


"character height."
  End If

End Sub