Объект 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

См. также

Объектная модель Project

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.