Método Documents.CheckOut (Visio)

Marca um documento especificado como "checkout" e atribui privilégios de edição ao usuário atual.

Sintaxe

expressão. CheckOut (FileName)

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

Parâmetros

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

Valor de retorno

Nada

Comentários

Para fazer check-out de um arquivo, ele deve estar armazenado em uma biblioteca de documentos em um computador que execute o Microsoft SharePoint Server ou o Microsoft SharePoint Foundation.

Diferentemente do comportamento na interface do usuário, o método CheckOut não abre o documento. Use o método Open para abrir o documento na janela de desenho após fazer o checkout.

Exemplo

Esse exemplo verifica se pode ser feito o checkout em um documento. Se sim, esse exemplo faz o checkout; caso contrário, retorna uma mensagem dizendo que não é possível fazer checkout no documento.

 
Sub CheckDocOut(strDocCheckOut As String)  
    If Documents.CanCheckOut(strDocCheckOut) = True Then  
        Documents.CheckOut strDocCheckOut  
    Else  
        MsgBox "You are unable to check out this document " _  
            & "at this time."  
    End If    
End Sub

Para chamar a sub-rotina CheckDocOut precedente, use a seguinte sub-rotina e substitua servername/workspace/drawing.vdx pelo caminho e nome de um arquivo real localizado em um computador do Microsoft SharePoint Server.

 
Sub DocOut()  
    Call CheckDocOut _  
        (strDocCheckOut:="https://servername/workspace/drawing.vdx ")  
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.