Método Presentation.CheckInWithVersion (PowerPoint)

Devuelve una presentación de un equipo local a un servidor y define el archivo local como de sólo lectura para que no pueda modificarse de forma local.

Sintaxis

expresión. CheckInWithVersion( _SaveChanges_, _Comments_, _MakePublic_, _VersionType_ )

Expresión Expresión que devuelve un objeto Presentation .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
SaveChanges	Opcional	Boolean	True guarda la presentación en la ubicación del servidor. El valor predeterminado es False.
Comments	Opcional	Variant	Comentarios para la revisión de la presentación que se está protegiendo (sólo es aplicable si SaveChanges es igual a True).
MakePublic	Opcional	Variant	True permite al usuario realizar una publicación en la presentación después de haberlo protegido. El documento se envía al proceso de aprobación, que a su término puede dar lugar a que una versión de la presentación se publique para los usuarios con derechos de solo lectura a la misma (sólo es aplicable si SaveChanges es igual a True).
VersionType	Opcional	Variant	Número de versión de la presentación.

Comentarios

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

Para el parámetro VersionType , también puede pasar una constante de la enumeración PpCheckInVersionType .

Ejemplo:

En este ejemplo se comprueba el servidor para ver si la presentación especificada se puede registrar y, si es así, cierra la presentación y la vuelve a comprobar en el servidor.

Sub CheckInPresentation(strPresentation As String)

    If Presentations(strPresentation).CanCheckIn = True Then

        Presentations(strPresentation).CheckIn

        MsgBox strPresentation & " has been checked in."

    Else

        MsgBox strPresentation & " cannot be checked in at this time. Please try again later."

    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 CheckInPresentation()

    Call CheckInPresentation(strPresentation:= "https://servername/workspace/report.ppt ")

End Sub

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.