Presentation.CheckInWithVersion-Methode (PowerPoint)

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.

Hinweise

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 Parameter VersionType können Sie auch eine Konstante aus der PpCheckInVersionType-Enumeration übergeben.

Beispiel

Dieses Beispiel überprüft den Server, um festzustellen, ob die angegebene Präsentation eingecheckt werden kann. Falls ja, 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

Verwenden Sie zum Aufrufen der obigen Unterroutine 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 im Abschnitt "Hinweise" oben erwähnt wurde.

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.