Объект 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 . В следующем примере подсчитывается количество открытых проектов.

Application.Projects.Count

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

Projects.Count

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

Projects.Add False

Методы

Имя
Add
CanCheckOut
CheckOut

Свойства

Имя
Application
Count
Item
Parent

См. также

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

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

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