Метод Documents.CheckOut (Visio)

Статья
04/07/2023

Помечает указанный документ как извлеченный и назначает права редактирования текущему пользователю.

Синтаксис

expression. CheckOut (FileName)

Выражение Переменная, представляющая объект Documents .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
FileName	Обязательный	String	Путь к серверу и имя файла.

Возвращаемое значение

Отсутствует

Примечания

Чтобы извлечь файл, он должен храниться в библиотеке документов на компьютере под управлением Microsoft SharePoint Server или Microsoft SharePoint Foundation.

В отличие от поведения в пользовательском интерфейсе, метод CheckOut не открывает документ. Используйте метод Open , чтобы открыть документ в окне документа после его извлечения.

Пример

В этом примере проверяется возможность извлечь документ. Если это возможно, в этом примере он будет извлечен. В противном случае возвращается сообщение о том, что документ не может быть извлечен.

 
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

Чтобы вызвать предыдущую подпрограмму CheckDocOut , используйте следующую подпрограмму и замените servername/workspace/drawing.vdx путем и именем фактического файла, расположенного на компьютере Microsoft SharePoint Server.

 
Sub DocOut()  
    Call CheckDocOut _  
        (strDocCheckOut:="https://servername/workspace/drawing.vdx ")  
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.