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 Una 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).
Hacer público 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 desde la enumeración PpCheckInVersionType .

Ejemplo

En este ejemplo se comprueba el servidor para ver si la presentación especificada se puede proteger y, si es así, se cierra la presentación y se vuelve a proteger 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 siguiente subrutina y reemplace el nombre de archivo " https://servername/workspace/report.ppt " con un archivo real ubicado en un servidor mencionado en la sección Observaciones 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.

  • Last updated on