借助帮助 生成了 甘特图,有两个问题1、SeriesList 的宽度能不能固定
2、图表外观可以修改成无边框那种
代码如下
Dim dr As Row = Tables("首页_table3").Current
Dim Chart As WinForm.Chart
Chart= Forms("首页").Controls("Chart1")
Chart.ChartType = ChartTypeEnum.Gantt '图表类型为甘特图
Chart.Inverted = True '对调X轴和Y轴位置
Chart.AxisY.DateType= True 'Y轴为日期型
Chart.AxisY.AnnoFormatString = "MM-dd" '设置Y轴的标示格式
Chart.AxisY.MinDate = dr("开始日期")'设置Y轴的起始日期
Chart.AxisY.MaxDate =dr("结束日期")'设置Y轴的终止日期
Chart.AxisX.GridMajorVisible = False '隐藏X轴的网格线
Chart.VisualEffect = False
Chart.SeriesList.Clear()
Dim t As Table= Tables("项目推进附表")
With Chart.SeriesList
For Each r As Row In t.Rows
.AddGanttSeries(r("推进内容"), r("开始日期"),r("结束日期"))
.AddGanttLabels("M月d日")
Next
End With
此主题相关图片如下:qq截图20200708093452.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2020-7/2020789383818161.png)