Объект Resources (Project)
Содержит коллекцию объектов Resource .
Пример
Использование коллекции ресурсов
Используйте resources (index), где index — это номер индекса ресурса или имя ресурса, чтобы вернуть один объект Resource . В следующем примере перечислены имена всех ресурсов в активном проекте.
Dim R As Long, Names As String
For R = 1 To ActiveProject.Resources.Count
Names = ActiveProject.Resources(R).Name & ", " & Names
Next R
Names = Left$(Names, Len(Names) - Len(ListSeparator & " "))
MsgBox Names
Использование коллекции ресурсов
Используйте свойство Resources , чтобы вернуть коллекцию Resources . В следующем примере создается тот же список, что и в предыдущем примере, но это делается путем установки ссылки на ActiveProject.Resources объект , а затем с помощью R метода where ActiveProject.Resources is used.
Dim R As Resources, Temp As Long, Names As String
Set R = ActiveProject.Resources
For Temp = 1 To R.Count
Names = R(Temp).Name & ", " & Names
Next Temp
Names = Left$(Names, Len(Names) - Len(ListSeparator & " "))
MsgBox Names
Используйте метод Add , чтобы добавить объект Resource в коллекцию Resources . В следующем примере в активный проект добавляется новый ресурс с именем Matilda.
ActiveProject.Resources.Add "Matilda"
Методы
| Имя |
|---|
| Add |
Свойства
| Имя |
|---|
| Application |
| Count |
| Item |
| Parent |
| UniqueID |
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.