Свойство Project.IsCheckoutOSVisible (Project)

Статья
04/07/2023

Возвращает значение, указывающее, отображается ли кнопка "Извлечь " в представлении Backstage. Только для чтения, Boolean.

Синтаксис

выражение. IsCheckoutOSVisible

Выражение Переменная, представляющая объект Project .

Замечания

Если активный проект не извлечен, в представлении Backstage отображается кнопка Извлечь . Свойство IsCheckoutOSVisible имеет значение True , если кнопка Извлечь отображается в представлении Backstage; в противном случае — False.

Пример

В следующем примере проверяется, отображается ли панель сообщений о оформлении заказа. Если да, он скрывает панель сообщений. Однако если проект не извлечен, в представлении Backstage по-прежнему отображается кнопка Извлечь, поэтому в примере можно попытаться извлечь проект. Если проект извлечен вами или извлечен другим пользователем, появится диалоговое окно "Проект" с сообщением "Этот проект уже извлечен на другом компьютере или Project Web App сеансе".

Sub TestBackstageCheckout()
    ' Hide the checkout message bar.
    If ActiveProject.IsCheckoutMsgBarVisible Then
        ActiveProject.HideCheckoutMsgBar
    End If
    
    ' If the Backstage Check Out button is visible, then the
    ' project is not checked out.
    If ActiveProject.IsCheckoutOSVisible Then
        ActiveProject.CheckoutProject
        Debug.Print "Attempted to check out: '" & ActiveProject.Name & "'"
    Else
        Debug.Print "'" & ActiveProject.Name & "' is already checked out."
    End If
End Sub

Значение свойства

BOOL

См. также

Объект Project

Метод CheckoutMsgBarVisible HideCheckoutMsgBar CheckoutProject

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

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