5,174
社区成员
发帖
与我相关
我的任务
分享excel中画直线，可以控制长度吗？
想做一个进度表，上面一行是日期，下面是各个项目根据日期用直线表示的进度，想做成直线根据日期的变化长度可变，不知道excel中直线的长度怎么能动态改变，谢谢各位大侠了！！！
...全文
请发表友善的回复…
发表回复
knowledge_Is_Life 2008-04-30
- 打赏
- 举报
不会,帮顶
UltraBejing 2008-04-29
- 打赏
- 举报
好像没那么简单,呵呵.
Arqui 2008-02-21
- 打赏
- 举报
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
liuyann 2008-02-13
- 打赏
- 举报
Selection.ShapeRange.Item("Line 1").Width = 141.75