Método Document.CheckIn (Visio)

Retorna um documento de um computador local para um computador do Microsoft SharePoint Server.

Sintaxe

expressão. CheckIn (SaveChanges, Comments, MakePublic)

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
SaveChanges	Opcional	Boolean	True (diferente de zero) para salva alterações no documento antes de verificar; False (0) para verificar o documento sem salvar alterações. O padrão é True.
Comments	Opcional	Variantes	Quaisquer comentários a serem armazenados com essa revisão do documento (aplicável somente se SaveChanges for igual a True).
MakePublic	Opcional	Boolean	True para publicar o documento após a verificação. Isso envia o documento para o processo de aprovação ou, se não houver roteamento de aprovação para o documento, é criada uma versão pública disponível aos leitores da pasta (aplicável somente se SaveChanges for igual a True); False deixa o documento disponível apenas para exibição privada. O padrão é False.

Valor de retorno

Nada

Comentários

Para fazer check-in 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.

Após o documento ter sido verificado usando o método CheckIn, ele será fechado. Esse comportamento é diferente da interface do usuário; quando você verifica um documento na interface do usuário, o documento é fechado e reaberto como somente leitura.

Exemplo

Esse exemplo verifica o servidor para ver se o documento especificado pode ser verificado. Se puder, esse exemplo salva e fecha o documento e o verifica novamente no servidor.

Sub CheckDocIn(varDocCheckIn As Variant) 
  
    If Documents.Item(varDocCheckIn).CanCheckin = True Then  
        Documents.Item(varDocCheckIn).CheckIn  
        MsgBox varDocCheckIn & " has been checked in."  
    Else  
        MsgBox "This file cannot be checked in " _  
            & "at this time. Please try again later."  
    End If   
  
End Sub

Para chamar a sub-rotina CheckDocIn 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 DocIn()  
 
    Call CheckDocIn _  
        (varDocCheckIn:="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.