CheckIn (Método)

Importante

Este artículo se ha traducido con traducción automática; vea la declinación de responsabilidades. Para su referencia, puede encontrar la versión en inglés de este artículo aquí.

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 .CheckIn(SaveChanges, Comments, MakePublic)

expresión Variable que representa un objeto Presentation.

Parámetros

Name	Necesario/Opcional	Tipo de datos	description
SaveChanges	Opcional	Booleano	True guarda la presentación en la ubicación del servidor. El valor predeterminado es False.
Comments	Opcional	Variante	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	Variante	True permite al usuario publicar la presentación después de protegerla. 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).

Notas

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 el servidor para ver si la presentación especificada puede registrarse y, en tal caso, cierra la presentación y la devuelve al 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

Ejemplo

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

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

Nota

Declinación de responsabilidades de traducción automática: Este artículo se ha traducido con un sistema informático sin intervención humana. Microsoft ofrece estas traducciones automáticas para que los hablantes de otros idiomas distintos del inglés puedan disfrutar del contenido sobre los productos, los servicios y las tecnologías de Microsoft. Puesto que este artículo se ha traducido con traducción automática, es posible que contenga errores de vocabulario, sintaxis o gramática.