用vba编写点线的缓冲区
答案:2 悬赏:0
解决时间 2021-02-20 04:59
- 提问者网友：夜微涼
- 2021-02-19 18:33
用vba编写点线的缓冲区
最佳答案
- 二级知识专家网友：一池湖水
- 2021-02-19 20:09
1.单元格列宽为0.5cm，要求A列数据与直线长度一致。
2.第二行及以后的直线起点为上一行直线的终点。
3.数据为空时，不显示！且下一行的起点为上面非空最后一行的终点。
弄了个代码：
Sub 画线()
ActiveSheet.DrawingObjects.Delete
ActiveSheet.Shapes.AddLine(Columns("a:b").Width, Rows(1).Height / 2, Columns("a:b").Width + Columns(3).Width * Range("a1") * 2, Rows(1).Height / 2).Select
Selection.ShapeRange.Line.ForeColor.SchemeColor = 38 '线条颜色
Selection.ShapeRange.Line.Weight = 2#
End Sub！
2.第二行及以后的直线起点为上一行直线的终点。
3.数据为空时，不显示！且下一行的起点为上面非空最后一行的终点。
弄了个代码：
Sub 画线()
ActiveSheet.DrawingObjects.Delete
ActiveSheet.Shapes.AddLine(Columns("a:b").Width, Rows(1).Height / 2, Columns("a:b").Width + Columns(3).Width * Range("a1") * 2, Rows(1).Height / 2).Select
Selection.ShapeRange.Line.ForeColor.SchemeColor = 38 '线条颜色
Selection.ShapeRange.Line.Weight = 2#
End Sub！
全部回答
- 1楼网友：你把微笑给了谁
- 2021-02-19 20:57
同问。。。
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯