TimeScaleValues Collection Object (Project)
Contains a collection of TimeScaleValue objects.
Example
Using the TimeScaleValue Object
Use TimeScaleValues ( Index ), where Index is the index number of the timescaled data item, to return a single TimeScaleValue object. The following example displays the number of hours of work per day for a resource during the first full week in October 2010.
Dim TSV As TimeScaleValues, HowMany As Long
Dim HoursPerDay As String
Set TSV = ActiveCell.Resource.TimeScaleData("10/4/2010", "10/8/2010", TimescaleUnit:=pjTimescaleDays)
For HowMany = 1 To TSV.Count
HoursPerDay = HoursPerDay & TSV(HowMany).StartDate & " - " & _
TSV(HowMany).EndDate & ", " & TSV(HowMany) / 60 & vbCrLf
Next HowMany
MsgBox HoursPerDay
Using the TimeScaleValues Collection
Use the TimeScaleData method to return a TimeScaleValues collection. The following example returns a TimeScaleValues collection for the amount of work done by the resource in the active cell between the specified dates, split into week-long portions.
ActiveCell.Resource.TimeScaleData("10/1/2010", "10/31/2010")
Use the Add method to add a TimeScaleValue object to the TimeScaleValues collection. The following example adds 8 hours of work to Tuesday of that week.
Dim TSV As TimeScaleValues
Set TSV = ActiveCell.Resource.TimeScaleData("10/4/2010", "10/8/2010", TimescaleUnit:=pjTimescaleDays)
TSV.Add 480, 2