Application.IsCommandEnabled method (Project)

Gibt an, ob der angegebene Befehl aktiviert ist.

Syntax

Ausdruck. IsCommandEnabled( _CommandName_ )

Ausdruck Ein Ausdruck, der ein Application-Objekt zurückgibt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
CommandName	Erforderlich	String	Der Name eines gültigen Befehls.

Rückgabewert

Long

Hinweise

Gültige Befehle sind VBA Methodennamen in der Bibliothek MSProject. Der Rückgabewert kann eine der PjIsCommandEnabled -Konstanten sein.

Beispiel

Wenn die Teamplaneransicht nicht sichtbar ist, gibt das TestCommandEnabled -Makro die folgenden Ergebnisse zurück:

Die FileOpen -Methode ist in den meisten Fällen verfügbar. Die IsCommandEnabled -Methode ist nicht definiert, da es nicht in der internen Liste der Methoden enthalten ist. ResetTPStyle -Methode ist deaktiviert, da sie nur verfügbar ist, wenn die Teamplaneransicht geöffnet ist.

Sub TestCommandEnabled() 
 Dim commandArray(3) As String 
 Dim isEnabled As String 
 Dim i As Integer 
 
 commandArray(1) = "FileOpen" 
 commandArray(2) = "IsCommandEnabled" 
 commandArray(3) = "ResetTPStyle" 
 
 For i = 1 To 3 
 isEnabled = GetCommandEnabled(commandArray(i)) 
 Debug.Print commandArray(i) & " is " & isEnabled 
 Next i 
End Sub 
 
Function GetCommandEnabled(command As String) As String 
 Dim isEnabled As Long 
 Dim enabledMsg As String 
 Dim result As String 
 
 isEnabled = Application.IsCommandEnabled(command) 
 
 Select Case isEnabled 
 Case PjIsCommandEnabled.pjCommandDisabled 
 result = "disabled." 
 Case PjIsCommandEnabled.pjCommandEnabled 
 result = "enabled." 
 Case PjIsCommandEnabled.pjCommandUndefined 
 result = "undefined." 
 Case Else 
 result = "unknown result." 
 End Select 
 
 GetCommandEnabled = result 
End Function

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.