Метод Application.IsCommandEnabled (Project)

Статья
04/07/2023

Показывает, включена ли указанная команда.

Синтаксис

выражение. IsCommandEnabled( _CommandName_ )

Выражение Выражение, возвращающее объект Application .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
CommandName	Обязательный	String	Имя допустимой команды.

Возвращаемое значение

Long

Замечания

Допустимые команды — это имена методов VBA в библиотеке MSProject . Возвращаемое значение может быть одной из констант 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 и обратная связь.

Поделиться через