Método Application.IsCommandEnabled (Project)

Mostra se o comando especificado está habilitado.

Sintaxe

expression. IsCommandEnabled( _CommandName_ )

Expressão Uma expressão que retorna um objeto Application .

Parâmetros

Valor de retorno

Long

Comentários

Comandos válidos são os nomes de método VBA na biblioteca do MSProject. O valor de retorno pode ser uma das seguintes constantes PjIsCommandEnabled.

Exemplo

Quando o modo de exibição Planejador de equipe não estiver visível, a macro TestCommandEnabled retorna os seguintes resultados:

O método FileOpen está disponível na maioria dos casos. O método IsCommandEnabled é indefinido porque ele não está incluído na lista interna de métodos. O método ResetTPStyle está desabilitado porque só está disponível quando o modo de exibição Planejador de equipe está aberto.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.