Presentations.CheckOut-Methode (PowerPoint)

Kopiert eine angegebene Präsentation von einem Server auf einen lokalen Computer zur Bearbeitung. Gibt eine Zeichenfolge, die den lokalen Pfad und Namen der ausgecheckten Präsentation darstellt.

Syntax

Ausdruck. CheckOut (FileName)

Ausdruck Eine Variable, die ein Presentations-Objekt darstellt.

Parameter

Rückgabewert

Nichts

Bemerkungen

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

Beispiel

In diesem Beispiel wird überprüft, ob die Präsentation bereits von einem anderen Benutzer ausgecheckt wurde und ausgecheckt werden kann. Falls die Präsentation ausgecheckt werden kann, wird sie zur Bearbeitung auf den lokalen Computer kopiert.

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

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

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

Siehe auch

Presentations-Objekt

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.