Méthode Application.IsCommandEnabled (Project)
Indique si la commande spécifiée est activée.
expression. IsCommandEnabled
( _CommandName_
)
Expression Expression qui renvoie un objet Application .
Nom | Requis/Facultatif | Type de données | Description |
---|---|---|---|
CommandName | Requis | String | Nom d’une commande valide. |
Long
Les commandes valides correspondent aux noms de méthodes VBA de la bibliothèque MSProject. La valeur de retour peut être l’une des constantes PjIsCommandEnabled .
Lorsque le mode Planificateur d’équipe n’est pas visible, la macro TestCommandEnabled renvoie les résultats suivants :
La méthode FileOpen est disponible dans la plupart des cas. La méthode IsCommandEnabled n’est pas définie car elle n’est pas incluse dans la liste interne des méthodes. La méthode ResetTPStyle est désactivée car elle est disponible uniquement lorsque le Planificateur d’équipe est ouvert.
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
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.