Inicio de sesión

Quién está conectado

Actualmente hay 0 usuarios y 3 invitados en línea.

Sindicar

Distribuir contenido

Como Dibujar Lineas con puntas de flechas con Basic?

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.

Búscalo con Google

Comentarios recientes

Encuesta

¿Sobre qué programas esperas encontrar tutoriales y ejercicios en SuperAlumnos.net? :