Метод Presentations.CanCheckOut (PowerPoint)

Статья
04/07/2023

Возвращает значение True , если Microsoft PowerPoint может извлечь указанную презентацию с сервера.

Синтаксис

выражение. CanCheckOut( _FileName_ )

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

Параметры

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

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

Boolean

Примечания

Чтобы воспользоваться преимуществами функций совместной работы, встроенных в PowerPoint, необходимо хранить презентации на SharePoint Portal Server Microsoft Office.

Пример

В этом примере проверяется, что презентация не извлечена другим пользователем и что ее можно извлечь. Если презентацию можно извлечь, она копирует ее на локальный компьютер для редактирования.

Sub CheckOutPresentation(strPresentation As String)
    If Presentations.CanCheckOut(strPresentation) = True Then
        Presentations.CheckOut FileName:=strPresentation
    Else
        MsgBox "You are unable to check out this " & _
        "presentation at this time."
    End If
End Sub

Чтобы вызвать указанную выше подпрограмму, используйте следующую подпрограмму и замените имя файла " https://servername/workspace/report.ppt " фактическим файлом, расположенным на сервере, указанном в разделе "Примечания" выше.

Sub CheckPPTOut()
    Call CheckOutPresentation(strPresentation:= _
        "https://servername/workspace/report.doc ")
End Sub

См. также

Объект Presentations

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

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