Presentation.CheckInWithVersion-Methode (PowerPoint)

Artikel
04/07/2023

Gibt eine Präsentation von einem lokalen Computer an einen Server zurück und aktiviert das Schreibschutzattribut der lokalen Datei, sodass sie nicht mehr lokal bearbeitet werden kann.

Syntax

Ausdruck. CheckInWithVersion( _SaveChanges_, _Comments_, _MakePublic_, _VersionType_ )

Ausdruck: Ein Ausdruck, der ein Presentation-Objekt zurückgibt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
SaveChanges	Optional	Boolean	True, wird die Präsentation auf dem Server gespeichert. Der Standardwert ist False.
Comments	Optional	Variant	Kommentare für die Überarbeitung der Präsentation, die eingecheckt wird (gilt nur, wenn SaveChanges den Wert True aufweist).
MakePublic	Optional	Variant	True ermöglicht es dem Benutzer die Präsentation nach dem Einchecken veröffentlichen ausführen. Hierdurch wird das Dokument zur Genehmigung übermittelt, was letztendlich dazu führen kann, dass eine Version der Präsentation für Benutzer veröffentlicht wird, die über Lesezugriff für die Präsentation verfügen (gilt nur, wenn SaveChanges den Wert True aufweist).
VersionType	Optional	Variant	Versionsnummer der Präsentation.

HinwBemerkungeneise

Damit die in Microsoft PowerPoint integrierten Features für die Zusammenarbeit genutzt werden können, müssen Sie Präsentationen auf einem Server speichern, auf dem Microsoft SharePoint Portal Server installiert ist.

Für den VersionType-Parameter können Sie auch eine Konstante aus der PpCheckInVersionType-Enumeration übergeben.

Beispiel

In diesem Beispiel wird der Server überprüft, ob die angegebene Präsentation eingecheckt werden kann. Wenn dies der Fall ist, wird die Präsentation geschlossen und wieder auf dem Server eingecheckt.

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

Um die obige Unterroutine aufzurufen, verwenden Sie die folgende Unterroutine, und ersetzen Sie den Dateinamen " https://servername/workspace/report.ppt " durch eine tatsächliche Datei, die sich auf einem Server befindet, der oben im Abschnitt "Hinweise" erwähnt wird.

Sub CheckInPresentation()

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

End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Share via