Sub Teken_Hulp_Assen()
Dim oDrawPage as Object, oRectangleShape As Object
Dim rPosition As New com.sun.star.awt.Point
Dim rSize As New com.sun.star.awt.Size
DrawPage = ThisComponent.getDrawPages().getByIndex( 0 )
LineShape = ThisComponent.createInstance( “com.sun.star.drawing.LineShape”)
Xas = 400
Yas = 500
Lengte = 15000
OffsetX = 15000
OffsetY = 8000
Afstand = 50
’ Xbegin, Ybegin, Xeind, Yeind
’ X-as
rPosition.X = OffsetX
rPosition.Y = OffsetY
rSize.Width = OffsetX + Lengte
rSize.Height = 0
LineShape.setPosition( rPosition )
LineShape.setSize( rSize )
LineShape.LineColor = rgb(255,0,0)
’ LineShape.LineEndStyle(1)
DrawPage.add( LineShape )