Метод Presentations.CheckOut (PowerPoint)

Статья
04/07/2023

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

Синтаксис

expression. CheckOut (FileName)

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

Параметры

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

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

Отсутствует

Примечания

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

Пример

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

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 и обратная связь.