Share via


Group Property

Returns or sets the group to which a resource belongs.

Resource object: Returns or sets the group to which a resource belongs. Read/write String.

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

Example

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

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.Group = Entry Then
            R.Delete
            Deletions = Deletions + 1
        End If
    Next R

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

End Sub

Applies to | Resource Object, Resources Collection Object | ViewSingle Object, ViewsSingle Collection Object

See Also | Code Property | Initials Property | ResourceGroup Property