Método Presentations.CheckOut (PowerPoint)

Copia uma apresentação especificada de um servidor a um computador local para edição. Retorna uma cadeia de caracteres que representa o nome de arquivo e o caminho local da apresentação com check-out.

Sintaxe

expressão. CheckOut (FileName)

Expressão Uma variável que representa um objeto Presentations .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
FileName	Obrigatório	String	O caminho do servidor e o nome da apresentação.

Valor de retorno

Nada

Comentários

Para se beneficiar dos recursos de colaboração incorporados ao Microsoft PowerPoint, as apresentações devem ser armazenadas em um Microsoft Office SharePoint Portal Server.

Exemplo

Este exemplo verifica se não foi feito o check out de uma apresentação por outro usuário, e se ainda pode ser feito. Se o check out puder ser feito na apresentação, esta é copiada para ser editada no computador local.

Sub CheckOutPresentation(strPresentation As String)

    Dim strFileName As String

    With Presentations
        If .CanCheckOut(strPresentation) = True Then
            .CheckOut FileName:=strPresentation
            .Open FileName:=strFileName
        Else
            MsgBox "You are unable to check out this " & _
                "presentation at this time."
        End If
    End With
End Sub

Para chamar a sub-rotina acima, use a sub-rotina a seguir e substitua a "https://servername/workspace/report.ppt" nome do arquivo para um arquivo real localizado em um servidor mencionado na seção Comentários acima.

Sub CheckPPTOut()
    Call CheckOutPresentation(strPresentation:= _
        "https://servername/workspace/report.doc")
End Sub

Confira também

Objeto Presentations

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.