In this case, I want to use VBA only. No Scheduling tools.

My field of application is Construction where you repeatedly compare
Schedule of Estimated Data, Actual Data and Final Forecast.

The following data would drive a floating cluster of 3 bars,
Estimated, Actual and Forecast Finish from the current Report Date.

Activity# | Estimated Start | Estimated Finish | Actual Start
| Actual Finish | Forecast Finish | % Complete

Dim's .....
Set Series = .......
Set ReportDate = ....
For I = 1 to Ser.Points.Count
Draw Estimated bar from Estimated Start to Estimated Finish [Blue
1/4" or 6mmThick]
If Point# is 100% Complete
Draw Actual Bar from Actual Start to Actual Finish [Red
3/16" or 5mm Thick]
Else
Draw Actual Bar from Actual Start to Current Reporting
Date [Red 3/16" or 5mm Thick]
Draw Final Forecast Bar from Current Reporting Date to
Final Forecast [Yellow 3/16" or 5mm Thick]
End If
Next I
Draw Reporting Date Vertical marker


Thank you for your help or clues on these floating clusters

Have a good day,

J.P.

You don't need VBA, just charts:

http://pubs.logicalexpressions.com/P...cle.asp?ID=343
(temporarily down, but should be up by next week)
http://peltiertech.com/Excel/Charts/GanttChart.html

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"u473" wrote in message
ups.com...
In this case, I want to use VBA only. No Scheduling tools.

My field of application is Construction where you repeatedly compare
Schedule of Estimated Data, Actual Data and Final Forecast.

The following data would drive a floating cluster of 3 bars,
Estimated, Actual and Forecast Finish from the current Report Date.

Activity# | Estimated Start | Estimated Finish | Actual Start
| Actual Finish | Forecast Finish | % Complete

Dim's .....
Set Series = .......
Set ReportDate = ....
For I = 1 to Ser.Points.Count
Draw Estimated bar from Estimated Start to Estimated Finish [Blue
1/4" or 6mmThick]
If Point# is 100% Complete
Draw Actual Bar from Actual Start to Actual Finish [Red
3/16" or 5mm Thick]
Else
Draw Actual Bar from Actual Start to Current Reporting
Date [Red 3/16" or 5mm Thick]
Draw Final Forecast Bar from Current Reporting Date to
Final Forecast [Yellow 3/16" or 5mm Thick]
End If
Next I
Draw Reporting Date Vertical marker


Thank you for your help or clues on these floating clusters

Have a good day,

J.P.