在VBA中更改实线的颜色

Question

我只想在这一行下添加一行，以使行RGB（0,255,0）

Sub Button1_Click（）

设置My_line =工作表（＆＃34; Zadatak1＆＃34;）。Shapes.AddLine（10,10,250,250）

End Sub

Answer 1

试试这个：

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