Can you put me on the right track to generate this Gant Chart with VBA
I do not want to chart it thru Excel Charts tools.
Thank you for your help.
----------------------------------------------
Data Source Structure :
A1 : Rpt Report Date
Col A2:A Item Item#
Col B2:B sStart Scheduled Start Date
Col C2:C sFinish Scheduled Finish Date
Col D2:D aStart Actual Start Date
Col E2:E aFinish Actual Finish Date
Col F2:F fStart Forecast Start Date
Col G2:G fFinish Forecast Finish Date
Col H2:H Prog Item % Progress
-----------------------------------------------
Sequence Logic :
PlotRow = 1
For Item = 2 to LastRow
Draw Blue Bar sStart to sFinish
PlotRow = PlotRow+1
'
Select Case Item(Prog)
'
Case 100 ' Item is Complete
Draw Red Bar aStart to aFinish
'
Case 0 ' Item has not started
Draw Yellow Bar fStart to fFinish
'
Case Else ' Item is in progress
Draw Red Bar aStart to Rpt
Draw Yellow Bar Rpt to fFinish
'
End Select
PlotRow = PlotRow + 2
Next Item