Project.Type-Eigenschaft (Project)

Ruft den Typ eines Projekts. Read-only PjProjectType.

Syntax

Ausdruck. Art

Ausdruck Eine Variable, die ein Project-Objekt darstellt.

Hinweise

Die Type -Eigenschaft kann eine der PjProjectType -Konstanten sein.

Beispiel

Im folgenden Beispiel wird ermittelt, ob ein geöffnetes Projekt ein Enterprise-Projekt ist und ausgecheckt ist. Wenn das Projekt nicht ausgecheckt ist, versucht das Beispiel, das Projekt auszuchecken. Wenn das Projekt von einem anderen Benutzer ausgecheckt ist, zeigt Project ein Dialogfeld mit der Meldung an: "Zum Auschecken muss DOMAIN\UserName das Projekt in seiner Sitzung schließen oder sich an Ihren Administrator wenden, um das Projekt einzuchecken."

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

Siehe auch

Project-ObjektPjProjectType-Enumeration

CheckoutProject-MethodeApplication.IsCheckedOut-Eigenschaft

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.