Объект Projects (Project)

Содержит коллекцию объектов Project .

Пример

Использование объекта Project

Используйте Projects (Index), где Index — это номер индекса проекта или имя проекта, чтобы вернуть один объект Project . В следующем примере выполняется переключение между всеми открытыми проектами, запоминается полное имя каждого из них, а затем отображаются результаты.

Dim Temp As Long, Names As String 

 

For Temp = 1 To Projects.Count 

 Projects(Temp).Activate 

 Names = Names & Projects(Temp).FullName & vbCrLf 

Next Temp 

 

MsgBox Names

Использование коллекции Projects

Используйте свойство Projects , чтобы вернуть коллекцию Projects . В следующем примере подсчитывается количество открытых проектов.

Application.Projects.Count

Так как коллекция Projects является объектом верхнего уровня, приведенный ниже пример функционально идентичен предыдущему.

Projects.Count

Используйте метод Add , чтобы добавить объект Project в коллекцию Projects . В следующем примере создается новый проект без запроса сведений о проекте.

Projects.Add False

Методы

Имя
Add
CanCheckOut
CheckOut

Свойства

Имя
Application
Count
Item
Parent

См. также

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

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

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