Método Presentations.CheckOut (PowerPoint)

Copia una presentación especificada de un servidor en un equipo local para su edición. Devuelve una cadena que representa el nombre de archivo y ruta de acceso local de la presentación desprotegida.

Sintaxis

expresión. CheckOut (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

Nothing

Comentarios

Para aprovechar las características de colaboración integradas en Microsoft 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)

    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

Para llamar a la subrutina anterior, use la subrutina siguiente y reemplace "https://servername/workspace/report.ppt" nombre de archivo de 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.