Application.IsCommandEnabled メソッド (Project)

指定されたコマンドが有効であるかどうかを示します。

構文

式。 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 のサポートおよびフィードバックを参照してください。