Document.CheckIn-Methode (Visio)

Artikel
04/07/2023

Gibt ein Dokument von einem lokalen Computer auf einen Microsoft SharePoint Server-Computer zurück.

Syntax

Ausdruck. CheckIn (SaveChanges, Comments, MakePublic)

Ausdruck Eine Variable, die ein Document-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
SaveChanges	Optional	Boolescher Wert	True (ungleich 0), um Dokumentänderungen vor dem Einchecken zu speichern; False (0), um das Dokument einzuchecken, ohne Änderungen zu speichern. Der Standardwert ist True.
Kommentare	Optional	Variant	Kommentare, die mit dieser Revision des Dokuments gespeichert werden sollen (gilt nur, wenn SaveChanges gleich True ist).
MakePublic	Optional	Boolescher Wert	True , um das Dokument nach dem Einchecken zu veröffentlichen. Dadurch wird das Dokument für den Genehmigungsprozess übermittelt, oder wenn es kein Genehmigungsrouting für das Dokument gibt, wird eine öffentliche Version erstellt, die den Lesern des Ordners zur Verfügung steht (gilt nur, wenn SaveChangesgleich True ist); False lässt das Dokument nur für die private Anzeige verfügbar. Der Standardwert ist False.

Rückgabewert

Nichts

Bemerkungen

Damit eine Datei eingecheckt werden kann, muss sie in einer Dokumentbibliothek auf einem Computer mit Microsoft SharePoint Server oder Microsoft SharePoint Foundation gespeichert sein.

Nachdem das Dokument mit der CheckIn-Methode eingecheckt wurde, wird das Dokument geschlossen. Dieses Verhalten unterscheidet sich von der Benutzeroberfläche. Wenn Sie ein Dokument auf der Benutzeroberfläche einchecken, wird das Dokument geschlossen und als schreibgeschützt erneut geöffnet.

Beispiel

In diesem Beispiel wird der Server überprüft, um festzustellen, ob das angegebene Dokument eingecheckt werden kann. Falls dies der Fall ist, wird das Dokument gespeichert und geschlossen und dann wieder auf dem Server eingecheckt.

Sub CheckDocIn(varDocCheckIn As Variant) 
  
    If Documents.Item(varDocCheckIn).CanCheckin = True Then  
        Documents.Item(varDocCheckIn).CheckIn  
        MsgBox varDocCheckIn & " has been checked in."  
    Else  
        MsgBox "This file cannot be checked in " _  
            & "at this time. Please try again later."  
    End If   
  
End Sub

Zum Aufrufen der vorausgehenden CheckDocIn-Unterroutine verwenden Sie die folgende Unterroutine, und ersetzen Sie servername/workspace/drawing.vdx durch den Pfad zu und den Namen einer tatsächlichen Datei auf einem Computer mit Microsoft SharePoint Server.

Sub DocIn()  
 
    Call CheckDocIn _  
        (varDocCheckIn:="https://servername/workspace/drawing.vdx ") 
  
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.