Метод Selection.BreakLinkToData (Visio)

Статья
04/07/2023

Разрыв связей между всеми фигурами в выделенном фрагменте и строками данных в указанном наборе записей данных.

Примечание.

Этот объект или элемент Visio доступен только лицензированным пользователям Visio профессиональный 2013.

Синтаксис

выражение. BreakLinkToData( _DataRecordsetID_ )

Выражение Выражение, возвращающее объект Selection .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
DataRecordsetID	Обязательный	Long	Идентификатор набора записей данных, содержащего строки данных, с которыми необходимо разорвать связи.

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

Отсутствует

Примечания

Если Microsoft Visio не удается разорвать связь между фигурой в выделенном фрагменте и строкой данных или если ссылка не существует, Visio пропускает фигуру и переходит к следующей фигуре в выделенном фрагменте. После выполнения метода, чтобы определить, связаны ли какие-либо формы в выделенном фрагменте со строкой данных, вызовите метод Shape.GetLinkedDataRow для каждой фигуры в выделенном фрагменте. Если метод GetLinkedDataRow завершается ошибкой для любой фигуры, это означает, что фигура больше не связана со строкой данных или никогда не была связана со строкой данных.

Обратите внимание, что разрыв связей между фигурами и данными не удаляет данные фигур (которые в некоторых предыдущих версиях Visio называются пользовательскими свойствами) из фигур, а также не удаляет графические данные, связанные с фигурами.

Пример

В следующем макросе Microsoft Visual Basic для приложений (VBA) показано, как использовать метод BreakLinkToData для разрыва всех связей между фигурами в выделенном фрагменте и строками данных в наборе записей данных.

Перед выполнением этого макроса разместите несколько фигур на странице, добавьте по крайней мере один набор записей данных в коллекцию DataRecordsets документа и используйте любой метод связывания, чтобы связать несколько фигур с одной или несколькими строками данных в наборе записей данных, который вы недавно добавили в коллекцию.

Public Sub BreakLinkToData_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim vsoSelection As Visio.Selection 
    Dim intCount As Integer 
        
    intCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intCount) 
     
    ActiveWindow.DeselectAll 
    ActiveWindow.SelectAll 
     
    Set vsoSelection = ActiveWindow.Selection 
    Call vsoSelection.BreakLinkToData(vsoDataRecordset.ID) 
     
End Sub

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

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