Объект "Ресурсы" (проект)

Содержит коллекцию объектов 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 , чтобы вернуть коллекцию ресурсов . В следующем примере создается тот же список, что и в предыдущем примере, но при этом устанавливается ссылка на объект в ActiveProject.Resources значение , а затем используется R where ActiveProject.Resources .

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 и обратная связь.