Метод Presentation.CheckInWithVersion (PowerPoint)

Статья
04/07/2023

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

Синтаксис

выражение. CheckInWithVersion( _SaveChanges_, _Comments_, _MakePublic_, _VersionType_ )

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Savechanges	Необязательный	Логический	Значение True сохраняет презентацию на сервере. Значение по умолчанию — False.
Комментарии	Необязательный	Variant	Примечания к редакции проверяемой презентации (применяется только в том случае, если значение SaveChanges равно True).
MakePublic	Необязательный	Variant	Значение True позволяет пользователю выполнять публикацию презентации после возврата. Это отправляет документ для утверждения, что в конечном итоге может привести к публикации версии презентации для пользователей с правами только на чтение презентации (применяется только в том случае, если Значение SaveChanges равно True).
VersionType	Необязательный	Variant	Номер версии презентации.

Замечания

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

Для параметра VersionType можно также передать константу из перечисления PpCheckInVersionType .

Пример

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

Sub CheckInPresentation(strPresentation As String)

    If Presentations(strPresentation).CanCheckIn = True Then

        Presentations(strPresentation).CheckIn

        MsgBox strPresentation & " has been checked in."

    Else

        MsgBox strPresentation & " cannot be checked in at this time. Please try again later."

    End If

End Sub

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

Sub CheckInPresentation()

    Call CheckInPresentation(strPresentation:= "https://servername/workspace/report.ppt ")

End Sub

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

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

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