Project) (Application.IsCommandEnabled 方法

會顯示是否啟用指定的命令。

語法

expression。 IsCommandEnabled( _CommandName_ )

表達 會傳回 Application 物件的運算式。

參數

名稱	必要/選用	資料類型	描述
CommandName	必要	String	有效命令的名稱。

傳回值

Long

註解

有效的命令會 MSProject 文件庫中的 VBA 方法名稱。 傳回的值可以是 PjIsCommandEnabled 常數之一。

範例

不顯示 [團隊規劃] 檢視時， TestCommandEnabled 巨集會傳回下列結果：

在大多數情況下使用 FileOpen 方法。 IsCommandEnabled 方法未定義，因為它將不會包含內部清單中的方法。 ResetTPStyle 方法會停用因為它只可開啟 [團隊規劃] 檢視時。

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

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。