ViewSingle.Group Property

Project Developer Reference

Returns or sets a Group object for a single view. Read/write Group.



expression   A variable that represents a ViewSingle object.

Return Value

The following example deletes the resources in the active project that belong to a group specified by the user

Visual Basic for Applications
  Sub DeleteResourcesInGroup()
Dim Entry As String        ' The group specified by the user
Dim Deletions As Integer    ' The number of deleted resources
Dim R As Resource                ' The resource object used in loop

' Prompt user for the name of a group.
Entry = InputBox$("Enter a group name:")

' Cycle through the resources of the active project.
For Each R in ActiveProject.Resources
    ' Delete a resource if its group name matches the user's request.
    If R.<strong class="bterm">Group</strong> = Entry Then
        Deletions = Deletions + 1
    End If
Next R

' Display the number of resources that were deleted.
MsgBox(Deletions &amp; " resources were deleted.")

End Sub

See Also