更改 VBA 中实线的颜色

Question

我只想在这一行下面再添加一行，使行 RGB(0, 255, 0)

子Button1_Click()

设置 My_line = 工作表("Zadatak1").Shapes.AddLine(10, 10, 250, 250)

结束子

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

更改 VBA 中实线的颜色

Change the color of a solid line in VBA

rgb

vba

colors

line