| title | Presentations.CanCheckOut method (PowerPoint) | |
|---|---|---|
| keywords | vbapp10.chm522008 | |
| f1_keywords |
|
|
| api_name |
|
|
| ms.assetid | 60393f0c-11e1-169d-2ead-c6556f1d1364 | |
| ms.date | 06/08/2017 | |
| ms.localizationpriority | medium |
Returns True if Microsoft PowerPoint can check out a specified presentation from a server.
expression. CanCheckOut( _FileName_ )
expression A variable that represents a Presentations object.
| Name | Required/Optional | Data type | Description |
|---|---|---|---|
| FileName | Required | String | The server path and name of the presentation. |
Boolean
To take advantage of the collaboration features built into PowerPoint, you must store presentations on a Microsoft Office SharePoint Portal Server.
This example verifies that a presentation is not checked out by another user and that it can be checked out. If the presentation can be checked out, it copies the presentation to the local computer for editing.
Sub CheckOutPresentation(strPresentation As String)
If Presentations.CanCheckOut(strPresentation) = True Then
Presentations.CheckOut FileName:=strPresentation
Else
MsgBox "You are unable to check out this " & _
"presentation at this time."
End If
End SubTo call the subroutine above, use the following subroutine and replace the " https://servername/workspace/report.ppt " file name with an actual file located on a server mentioned in the Remarks section above.
Sub CheckPPTOut()
Call CheckOutPresentation(strPresentation:= _
"https://servername/workspace/report.doc ")
End Sub[!includeSupport and feedback]