Свойство Project.Type (Project)

Возвращает тип проекта. PjProjectType, доступный только для чтения.

Синтаксис

expression. Тип

Выражение Переменная, представляющая объект Project .

Замечания

Свойство Type может быть одной из констант PjProjectType .

Пример

В следующем примере определяется, является ли открытый проект корпоративным и извлекается. Если проект не извлечен, в примере выполняется попытка извлечь проект. Если проект извлечен другим пользователем, в project отображается диалоговое окно с сообщением "Чтобы извлечь, DOMAIN\UserName необходимо закрыть проект в своем сеансе или обратиться к администратору, чтобы вернуть проект".

Sub CheckOutOpenEnterpriseProjects()
    Dim openProjects As Projects
    Dim proj As Project
    
    Set openProjects = Application.Projects
    
    On Error Resume Next
    
    For Each proj In openProjects
        If Application.IsCheckedOut(proj.Name) Then
            If proj.Type = pjProjectTypeEnterpriseCheckedOut Then
                Debug.Print "'" & proj.Name & "'" & " is already checked out."
            ElseIf proj.Type = pjProjectTypeNonEnterprise Then
                Debug.Print "'" & proj.Name & "'" & " is not an enterprise project."
            End If
        Else
            proj.CheckoutProject
            Debug.Print "Attempted to check out: '" & proj.Name & "'"
        End If
    Next proj
End Sub

См. также

Перечисление объекта проектаPjProjectType

CheckoutProject MethodApplication.IsCheckedOut Property

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

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