Método Presentation.CheckIn (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. CheckIn( _SaveChanges_, _Comments_, _MakePublic_ )
Expresión Variable que representa 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 usuarios con derecho de acceso de sólo lectura a la misma (sólo es aplicable si SaveChanges es igual a True). |
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 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
Consulte también
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.