Presentations.CheckOut method (PowerPoint) (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 Apresentações .

Parâmetros

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 subroutina acima, utilize a seguinte subriretina e substitua "https://servername/workspace/report.ppt" nome de ficheiro para um ficheiro real localizado num servidor mencionado na secção Observações 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.