Método Presentations.CanCheckOut (PowerPoint)

Devuelve True si Microsoft PowerPoint puede desproteger una presentación especificada de un servidor.

Sintaxis

expresión. CanCheckOut( _FileName_ )

expresión Variable que representa un objeto Presentations .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
FileName	Necesario	String	Ruta del servidor y nombre de la presentación.

Valor devuelto

Booleano

Comentarios

Para aprovechar las características de colaboración integradas en PowerPoint, las presentaciones se deben guardar en Microsoft Office SharePoint Portal Server.

Ejemplo

En este ejemplo se comprueba que una presentación no ha sido desprotegida por otro usuario y que se puede desproteger. Si la presentación se puede desproteger, se copia la presentación en el equipo local para que se pueda editar.

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 Sub

Para llamar a la subrutina anterior, use la subrutina siguiente y reemplace el nombre de archivo " " https://servername/workspace/report.ppt por un archivo real ubicado en un servidor mencionado en la sección Comentarios anterior.

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

Vea también

Objeto Presentations

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.