Свойство Resource.Group (Project)
Возвращает или задает группу, к которой принадлежит ресурс. Для чтения и записи, String.
expression. Группы
Выражение Переменная, представляющая объект Resource .
В следующем примере удаляются ресурсы активного проекта, принадлежащие группе, указанной пользователем.
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
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.