【发布时间】:2017-05-20 09:40:02
【问题描述】:
我只想在这一行下多加一行,使行变为 RGB(0, 255, 0)
子按钮1_Click()
设置 My_line = Worksheets("Zadatak1").Shapes.AddLine(10, 10, 250, 250)
结束子
【问题讨论】:
我只想在这一行下多加一行,使行变为 RGB(0, 255, 0)
子按钮1_Click()
设置 My_line = Worksheets("Zadatak1").Shapes.AddLine(10, 10, 250, 250)
结束子
【问题讨论】:
试试这个:
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
【讨论】: