Метод Presentations.CheckOut (PowerPoint)

Копирует указанную презентацию с сервера на локальный компьютер для редактирования. Возвращает строку, представляюную локальный путь и имя файла проверенной презентации.

Синтаксис

выражения. CheckOut (FileName)

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

Параметры

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

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

Отсутствует

Примечания

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

Пример

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

Sub CheckOutPresentation(strPresentation As String)

    Dim strFileName As String

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

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

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

См. также

Объект Presentations

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

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