Méthode Presentations.CheckOut (PowerPoint)

Copie une présentation spécifiée à partir d’un serveur vers un ordinateur local à des fins de modification. Renvoie une valeur de type String qui représente le chemin d’accès local et le nom de fichier de la présentation extraite.

Syntaxe

expression. CheckOut (FileName)

Expression Variable qui représente un objet Presentations .

Parameters

Nom Requis/Facultatif Type de données Description
FileName Obligatoire String Chemin de serveur et nom de la présentation.

Valeur renvoyée

Aucune

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 vérifie qu’une présentation n’est pas extraite par un autre utilisateur et qu’elle peut être extraite. Si la présentation peut être extraite, le programme la copie sur l’ordinateur local pour permettre sa modification.

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

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

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

Voir aussi

Objet Presentations

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.