以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  图表放大  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187753)
--  作者：漂亮美眉vszh
--  发布时间：2023/8/9 8:42:00
--  图表放大
老师，在绘制甘特图时，由于任务过多，导致图看上去很难看
有没有方法让图出现滚动条，自动放大
或自行代码
图片点击可在新窗口打开查看此主题相关图片如下：
设置图表的大小
[upload=jpg,甘特图.jpg
图片点击可在新窗口打开查看


[此贴子已经被作者于2023/8/9 8:44:07编辑过]
--  作者：有点蓝
--  发布时间：2023/8/9 8:51:00
--  
参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=122900&skin=0
--  作者：漂亮美眉vszh
--  发布时间：2023/8/9 10:07:00
--  

此主题相关图片如下：甘特图3.png
按此在新窗口浏览图片

老师，滚动条出来了，谢谢您。
还有个问题，图表中有些进度条太短，字体溢出，没办法体现字信息
这个字体，颜色想改下
\'Chart.SeriesList.DataLabelForeColor = Color.black
\'Chart.Series.DataLabelForeColor = Color.black
加了这两句话没改成功
--  作者：有点蓝
--  发布时间：2023/8/9 10:40:00
--  
With Chart.SeriesList
    .AddGanttSeries("任务一", #1/1/2010#, #3/9/2010#)
    Chart.SeriesList(0).DataLabelText = "10.1.1-10.3.9"
    Chart.SeriesList(0).DataLabelVisible = True
    Chart.SeriesList(0).DataLabelForeColor = color.red
    .AddGanttSeries("任务二", #2/10/2010#, #2/14/2010#)
    Chart.SeriesList(1).DataLabelText = "10.2.10-10.2.14"
    Chart.SeriesList(1).DataLabelVisible = True
    Chart.SeriesList(1).DataLabelForeColor = color.red
--  作者：漂亮美眉vszh
--  发布时间：2023/8/10 8:33:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：甘特图3.png
图片点击可在新窗口打开查看
老师，当项目少的时间，这个甘特图的条形特别宽，能设置宽度吗？
--  作者：漂亮美眉vszh
--  发布时间：2023/8/10 15:17:00
--  
老师，看看我这个能实现么？
--  作者：有点蓝
--  发布时间：2023/8/10 15:19:00
--  
没有找到相关的用法