以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  图表放大  (http://foxtable.net/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
--  
没有找到相关的用法