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

Project Object Model

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.