Méthode Presentation.CheckIn (PowerPoint)

  • Article

Cette méthode renvoie une présentation à partir d’un ordinateur local vers un serveur et définit le fichier local en lecture seule afin qu’il ne puisse pas être modifié localement.

Syntaxe

expression. CheckIn( _SaveChanges_, _Comments_, _MakePublic_ )

Expression Variable qui représente un objet Presentation .

Parameters

Nom Requis/Facultatif Type de données Description
SaveChanges Facultatif Boolean True permet d’enregistrer la présentation à un emplacement sur le serveur. La valeur par défaut est False.
Commentaires Facultatif Variant Commentaires de révision de la présentation en cours d’archivage (valable uniquement si l’argument EnregistrerModifications a la valeur True).
MakePublic Facultatif Variant True permet à l’utilisateur de publier une version de la présentation après qu’elle a été archivée. Elle entre alors dans un processus d’approbation, ce qui peut aboutir à la publication d’une version en lecture seule du document (valable uniquement si l’argument EnregistrerModifications a la valeur True).

Remarques

Vous ne pouvez tirer profit des outils de travail collaboratif intégrés dans Microsoft Office PowerPoint que si vos présentations sont stockées sur un serveur portail de partage Microsoft.

Exemple

Cet exemple montre comment vérifier si la présentation spécifiée peut être archivée sur le serveur et, le cas échéant, fermer la présentation et la replacer dans le serveur.

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

Pour appeler la sous-routine ci-dessus, utilisez la sous-routine suivante et remplacez le nom de fichier « https://servername/workspace/report.ppt » par un fichier réel situé sur un serveur mentionné dans la section Remarques ci-dessus.

Sub CheckInPresentation()

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

End Sub

Voir aussi

Objet Presentation

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.