Como unir dos puntos por medio de una linea

Hola jaime r santos:

Sub Macro1()
ActiveSheet.Shapes.AddLine(46.5, 9#, 94.5, 36.75).Select
ActiveSheet.Shapes.AddLine(101.25, 19.5, 136.5, 36.75).Select
Selection.ShapeRange.Flip msoFlipVertical
Range("A1").Select
End Sub

Antonyo


"jaime r santos" escribió en el mensaje
news:ek$

Estimados amigos: como puedo hacer una
macro para que me dibuje una linea entre dos puntos en un determinado

rango.

Por ejemplo en la celda A1, B3 y C2 tengo puntos (.), necesito hacer una
linea que vaya desde la celda A1 hasta la celda B3 y desde la
celda B3 hasta la celda C2.