TimeScaleValues object (Project)
Contains a collection of TimeScaleValue objects.
Examples
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 2012.
Dim TSV As TimeScaleValues, HowMany As Long
Dim HoursPerDay As String
Set TSV = ActiveCell.Resource.TimeScaleData("10/1/2012", "10/5/2012", 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/2012", "10/31/2012")
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/1/2012", "10/5/2012", TimescaleUnit:=pjTimescaleDays)
TSV.Add 480, 2
Methods
Name |
---|
Add |
Properties
Name |
---|
Application |
Count |
Item |
Parent |
See also
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.