Compartir a través de

Método Application.IsCommandEnabled (Project)

  • Artículo

Muestra si el comando especificado está habilitado.

Sintaxis

expresión. IsCommandEnabled( _CommandName_ )

Expresión Expresión que devuelve un objeto Application .

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
CommandName Obligatorio String Nombre de un comando válido.

Valor devuelto

Long

Comentarios

Comandos válidos son los nombres de método VBA en la biblioteca de MSProject. El valor devuelto puede ser una de las constantes PjIsCommandEnabled.

Ejemplo:

Cuando la vista Organizador de equipo no está visible, la macro TestCommandEnabled devuelve los resultados siguientes:

El método FileOpen está disponible en la mayoría de los casos. El método IsCommandEnabled es undefined porque no está incluido en la lista interna de métodos. El método ResetTPStyle está deshabilitado porque sólo está disponible cuando se abre la vista Organizador de equipo.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.