¿Cómo dibujar una línea recta en Excel usando VBA?

Método AddLine

Cuando se aplica a un objeto Shapes, este método devuelve un objeto Shape que representa una nueva línea en la hoja de trabajo. Cuando se aplica a un objeto CanvasShapes, este método devuelve un objeto Shape que representa las nuevas líneas en el lienzo de dibujo.

Sintaxis:

expresión.AddLine(BeginX, Beginy, EndX, EndY)

Entre ellos:

la expresión es obligatoria. Esta expresión devuelve un objeto Formas.

BeginX, BeginY Tipo único, obligatorio. Proporciona la posición inicial de la línea en puntos, en relación con la esquina superior izquierda del documento.

EndX, EndY Tipo único, obligatorio. Proporciona la posición final de la línea en puntos, en relación con la esquina superior izquierda del documento.

Ejemplo:

Este ejemplo agrega una línea discontinua azul a myDocument.

Establecer myDocument = Worksheets(1)

Con myDocument.Shapes.AddLine(10, 10, 250, 250).Line

.DashStyle = msoLineDashDotDot

.ForeColor.RGB = RGB(50, 0, 128)

Finalizar con