excel中画直线，可以控制长度吗？

[xujinbaobao]

想做一个进度表，上面一行是日期，下面是各个项目根据日期用直线表示的进度，想做成直线根据日期的变化长度可变，不知道excel中直线的长度怎么能动态改变，谢谢各位大侠了！！！

[liuyann]

Selection.ShapeRange.Item("Line 1").Width = 141.75

[Arqui]

Sub Macro1()

    Dim myLength As Long
    Dim todayLen As Long
    Dim myRate As Double
    Dim startDay As Date
    Dim deadLine As Date
    
    startDay = Cells(2, 3)
    deadLine = Cells(2, 4)
    
    myLength = 250
    myRate = (Date - startDay) / (deadLine - startDay)
    
    todayLen = myRate * myLength
    
    With ActiveSheet.Shapes("Line 1")
        .Width = todayLen
    End With

End Sub

[UltraBejing]

好像没那么简单,呵呵.

[knowledge_Is_Life]

不会,帮顶