Método Document.CheckIn (Visio)

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

Sintaxe

mais simples. Check-in (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	Variant	Quaisquer comentários a serem armazenados com essa revisão do documento (aplicável somente se SaveChanges for igual a True).
Torná-Pública	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.