Tengo el siguiente código para dibujar lineas dentro de una hoja de calc:

Sub DibujarLinea(X As Double, Y As Double, Ancho As Double, Alto As Double, ColorR As Integer, ColorG As Integer, ColorB As Integer, Tipo As Integer)
Dim Punto As New com.sun.star.awt.Point
Dim Tamano As New com.sun.star.awt.Size
Dim Linea As Object

Linea = ThisComponent.createInstance("com.sun.star.drawing.LineShape")

Punto.x = X
Punto.y = Y

Tamano.Width = Ancho
Tamano.Height = Alto

Linea.Size = Tamano
Linea.Position = Punto
If Tipo = 2 Then
Linea.LineStyle = com.sun.star.drawing.LineStyle.DASH
End If
Linea.LineColor = RGB(ColorR, ColorG, ColorB)

ThisComponent.Sheets.getByName("INPUT").DrawPage.add(Linea)
End Sub

Yo necesito agregarles puntas de flechas a las lineas, ¿como puedo hacer eso? cualquier sugerencia seria de gran ayuda para mi.