RE:x,y, ecuacion de recta
De la ayuda de excel ...
Método AddLine
Vea también Se aplica a Ejemplo Específicos
Cuando se aplica al objeto Shapes, devuelve un objeto Shape que representa la nueva línea en una hoja de cálculo. Cuando se aplica al objeto CanvasShapes, devuelve un objeto Shape que representa la nueva línea en un lienzo de dibujo.
expresión.AddLine(BeginX, Beginy, EndX, EndY)
expresión requerida. Expresión que devuelve un objeto Shapes.
BeginX, BeginY Single requerido. Posición, en puntos, del principio de la línea con relación a la esquina superior izquierda del documento.
EndX, EndY Single requerido. Posición, en puntos, del final de la línea con relación a la esquina superior izquierda del documento.
Ejemplo
Este ejemplo agrega una línea discontinua azul a myDocument.
Set myDocument = Worksheets(1)
With myDocument.Shapes.AddLine(10, 10, 250, 250).Line
.DashStyle = msoLineDashDotDot
.ForeColor.RGB = RGB(50, 0, 128)
End With
----------------------------------------------------
Este ejemplo pone otra línea
ActiveSheet.Shapes.AddLine(99#, 183#, 287.25, 248.25).Select
----------------------------------------------------
Para que funcione, debes tener en cuenta el ancho de las columnas, el alto de las filas, establecer un origen, a partir de ese origen establecer las nuevas coordenadas, etc.
Había por ahí una función/macro que resolvía estos problemas. Puedo tardar varios días en localizarla y arreglarla para que haga eso que quieres ...
Saludos
