Skip to content

ChartGanttSeriesStyle Object

Description

Gantt series style.

For a list of all members defined in this module, see ChartGanttSeriesStyle Members.

Object Model

ChartGanttSeriesStyle Object Model
Diagram
Error Bar
Rotation
Label
Fill Style
Border
Min Value Marker
Max Value Marker

Remarks

A Gantt chart is a type of range bar chart commonly used for task/schedule planning. Typically, a Gantt chart is used for displaying the progression of a project and will display the length each individual task will take versus the progression of time.

Gantt Chart Example

Example

// Gantt series sample

Private Function GetDate(nMonth As Long, nDay As Long) As Double  
    GetDate = (nMonth - 1) * 31 + (nDay - 1)  
End Function

ChartControl.Content.Titles.Add "Project Development Schedule"  

ChartControl.Content.Legend.Visible = True  
ChartControl.Content.Legend.HorizontalAlignment = xtpChartLegendFar  
ChartControl.Content.Legend.Direction = xtpChartLegendLeftToRight  

Dim Series As ChartSeries  
Set Series = ChartControl.Content.Series.Add("Planned")  

Series.Points.Add2 "Explore Market Need", GetDate(1, 1), GetDate(3, 4)  
Series.Points.Add2 "Develop Concept for Product", GetDate(2, 1), GetDate(3, 10)  
Series.Points.Add2 "Begin Development Cycle", GetDate(3, 10), GetDate(10, 20)  
Series.Points.Add2 "Develop GUI", GetDate(5, 1), GetDate(8, 15)  
Series.Points.Add2 "User Interface Test Evaluation", GetDate(7, 1), GetDate(8, 25)  
Series.Points.Add2 "Alpha Version Release", GetDate(7, 13), GetDate(7, 24)  
Series.Points.Add2 "Beta Version Release", GetDate(10, 13), GetDate(10, 24)  
Series.Points.Add2 "Design Box and CD Labels", GetDate(10, 1), GetDate(11, 1)  
Series.Points.Add2 "Final Quality Testing", GetDate(10, 1), GetDate(11, 25)  
Series.Points.Add2 "FCS Release", GetDate(11, 12), GetDate(11, 23)  
Series.Points.Add2 "Production and Packaging", GetDate(11, 12), GetDate(11, 25)  

Set Series = ChartControl.Content.Series.Add("Completed")  
Series.Points.Add2 "Explore Market Need", GetDate(1, 1), GetDate(3, 4)  
Series.Points.Add2 "Develop Concept for Product", GetDate(2, 1), GetDate(3, 10)  
Series.Points.Add2 "Begin Development Cycle", GetDate(3, 10), GetDate(7, 7)  
Series.Points.Add2 "Develop GUI", GetDate(5, 1), GetDate(7, 7)  
Series.Points.Add2 "User Interface Test Evaluation", GetDate(7, 1), GetDate(7, 7)  

Set ChartControl.Content.Series(0).Style = New ChartGanttSeriesStyle  
Set ChartControl.Content.Series(1).Style = New ChartGanttSeriesStyle  

ChartControl.Content.Series(0).Style.Label.Visible = False  
ChartControl.Content.Series(1).Style.Label.Visible = False  

ChartControl.Content.Series(1).Style.BarWidth = 0.3  

Dim Diagram As ChartDiagram2D  
Set Diagram = ChartControl.Content.Series(0).Diagram  

Diagram.AxisX.Title.Visible = True  
Diagram.AxisX.Title.Text = "Tasks"  
Diagram.AxisX.Reversed = True  

Diagram.AxisY.Title.Visible = False  
Diagram.AxisY.Range.ShowZeroLevel = False  
Diagram.AxisY.Range.SideMargins = False  

Dim ConstantLine As ChartAxisConstantLine  
Set ConstantLine = Diagram.AxisY.ConstantLines.Add("Progress Line")  
ConstantLine.LegendVisible = False  
ConstantLine.AxisValue = GetDate(7, 7)  

Diagram.Rotated = True

See Also

ChartGanttSeriesStyle Members

Copyright (c) 1998-2024 Codejock Technologies. All rights reserved.