Compartilhar via

Presentation.CheckInWithVersion method (PowerPoint) (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 devolve um objeto Apresentação .

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 Variant 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 , também pode transmitir uma constante a partir da enumeração PpCheckInVersionType .

Exemplo

Este exemplo verifica o servidor para ver se é possível dar entrada da apresentação especificada e, em caso afirmativo, fecha a apresentação e volta a dar entrada 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 subroutina acima, utilize a seguinte subriretina e substitua o nome de ficheiro " https://servername/workspace/report.ppt " por um ficheiro real localizado num servidor mencionado na secção Observações 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.

  • Last updated on