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
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.