多种方式画虚线——甘特图——横道图

bczy_77 · 发表于 2020-7-9 16:13

本帖最后由 bczy_77 于 2020-7-9 16:15 编辑

我需要按照这个要求来画进场图
进场图要求.png

我在论坛中找到几种方式都不满意。
1. 用判断方式，但中间总有让人不舒服的小空隙（箭头位置）

用判断方法.png

2.用shapes.addline方式（能画直线，但是没办法画虚线）

如何画虚线.png

For Each shp In ActiveSheet.Shapes
If shp.Type = msoLine Then shp.Delete
Next

Sheet1.Shapes.AddLine([g1], [h1], [g2], [h2]).Name = "abc2" '画直线并命名为abc

Dim aa As Shape
Set aa = Sheet1.Shapes("abc2")

aa.Line.ForeColor.RGB = vbRed '设置线条颜色
aa.Line.Weight = 1 '设置线宽

————————————————————————————————————————————————————————
求助大家，如何画虚线。

zq1210 · 发表于 2020-7-9 18:23

完成的不是很好，用的excel的字体设置试了一下。
虚线倒是勉强接受，但是实线不好。

zq1210 · 发表于 2020-7-9 18:24

楼主实线是怎么做的，谢谢

bczy_77 · 发表于 2020-7-10 09:32

zq1210 发表于 2020-7-9 18:24
楼主实线是怎么做的，谢谢

实线是用的填充单元格

		自动登录	找回密码
密码			免费注册