Compartir a través de


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

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