Forums Últimos mensajes - Powered by IBM
 

Como unir dos puntos por medio de una linea

20/07/2005 - 18:19 por jaime r santos | Informe spam
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.
 

Leer las respuestas

#1 Antonyo
21/07/2005 - 07:38 | Informe spam
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.


Preguntas similares