Changer la couleur d'une ligne solide dans VBA

Question

Je veux juste ajouter une ligne sous celui-ci, pour rendre la ligne RVB (0, 255, 0)

Sub Button1_Click()

Set My_line . = Worksheets ("Zadatak1") Shapes.AddLine (10, 10, 250, 250)

End Sub

Answer 1

Essayez ceci:

Sub Button1_Click() 
Set My_Line = Worksheets("Zadatak1") 

With My_Line.Shapes.AddConnector(msoConnectorStraight, 10, 10, 250, 250) 
    .Line.ForeColor.RGB = RGB(0,255,0) 
End With 

End Sub