Método Presentation.CheckInWithVersion (PowerPoint)

Retorna uma apresentação de um computador local para um servidor e define o arquivo local como somente leitura para que ele não possa ser editado localmente.

Sintaxe

expressão. CheckInWithVersion( _SaveChanges_, _Comments_, _MakePublic_, _VersionType_ )

Expressão Uma expressão que retorna um objeto Presentation .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
SaveChanges	Opcional	Boolean	True salva a apresentação até o local do servidor. O valor padrão é False.
Comments	Opcional	Variantes	Os comentários da revisão da apresentação cujo check-in está sendo efetuado (válido somente se SaveChanges for True).
MakePublic	Opcional	Variant	True permite que o usuário realize uma publicação da apresentação após o check-in. O documento é submetido para processo de aprovação, o que resultará em uma versão da apresentação publicada apenas para usuários com direitos de somente leitura (válido somente se SaveChanges for True).
VersionType	Opcional	Variant	Número de versão da apresentação.

Comentários

Para se beneficiar dos recursos de colaboração incorporados ao Microsoft PowerPoint, você deverá armazenar as apresentações em um Microsoft SharePoint Portal Server

Para o parâmetro VersionType , você também pode passar uma constante da enumeração PpCheckInVersionType .

Exemplo

Este exemplo verifica o servidor para ver se a apresentação especificada pode ser verificada e, se for o caso, fecha a apresentação e verifica-a novamente no 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 chamar a sub-rotina acima, use a sub-rotina a seguir e substitua o nome do arquivo " https://servername/workspace/report.ppt por um arquivo real localizado em um servidor mencionado na seção Comentários acima.

Sub CheckInPresentation()

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

End Sub

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.