
此主题相关图片如下:甘特图.jpg

使用甘特图时遇到一个问题,就是如果甘特图的某一个项目时间跨度较短,图示的时间(如“3月5日至4月2日”)就显示不完全,能否换行显示,或有其他办法显示完整吗?
谢谢!
Dim Chart As WinForm.Chart
Chart= Forms("窗口1").Controls("Chart1")
Chart.ChartType = ChartTypeEnum.Gantt
Chart.Inverted = True '对调X轴和Y轴位置
Chart.AxisY.DateType= True 'Y轴为日期型
Chart.AxisY.AnnoFormatString = "yyyy-MM-dd" '设置Y轴的标示格式
Chart.AxisY.MinDate = #01/01/2010# '设置Y轴的起始日期
Chart.AxisY.MaxDate = #04/30/2013# '设置Y轴的终止日期
Chart.AxisX.GridMajorVisible = False '隐藏X轴的网格线
With Chart.SeriesList
.AddGanttSeries("任务1", New DateTime() {#2/13/2010#, #3/8/2011#}, New DateTime() {#3/5/2010#, #3/31/2011#} )
.AddGanttSeries("任务2", New DateTime() {#2/13/2012#, #3/8/2013#}, New DateTime() {#3/5/2012#, #3/31/2013#} )
.AddGanttLabels("m")
End With