三d走势图带连线图 AddLinep(i-1)

自动绘制直线进度横道图需要写VBA球球我就不知道了PrivateTypepointapixAsSingleyAsSingleEndTypeSubdrawlines()DimiAsInteger,jAsInteger,nAsInteger,p()AspointapiWhileActiveSheet.Shapes

自动绘制直线进度横道图 需要写VBA球球我就不知道了Private Type pointapix As Singley As SingleEnd TypeSub drawlines()Dim i As Integer, j As Integer, n As Integer, p() As pointapiWhile ActiveSheet.Shapes.Count > 0ActiveSheet.Shapes(1).DeleteWendn = Range("f65536").End(xlUp).RowReDim p(2 To n)For i = 2 To nj = 5Doj = j + 1Loop Until Cells(i, j).Font.ColorIndex = 3p(i).x = 8 + j * Cells(i, j).Widthp(i).y = Cells(i, 1).Top + 0.5 * Cells(i, 1).HeightIf i > 2 Then ActiveSheet.Shapes.AddLine p(i - 1).x, p(i - 1).y, p(i).x, p(i).yNextEnd Sub邹鸿雪2021-04-09 21:25:08没有必要这么麻烦 数据表大把戴曼蔓2021-04-11 18:45:57不会啊