Selection.BreakLinkToData-Methode (Visio)

Artikel
04/07/2023

Hebt Verknüpfungen zwischen allen Shapes in der Auswahl und den Datenzeilen im angegebenen Datenrecordset auf.

Hinweis

Dieses Visio-Objekt oder dieses Visio-Mitglied ist nur für lizenzierte Benutzer von Visio Professional 2013 verfügbar.

Syntax

Ausdruck. BreakLinkToData( _DataRecordsetID_ )

Ausdruck Ein Ausdruck, der ein Selection-Objekt zurückgibt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
DataRecordsetID	Erforderlich	Long	Die ID des Datenrecordsets, das die Datenzeilen enthält, deren die Verknüpfungen aufgehoben werden sollen.

Rückgabewert

Nichts

Bemerkungen

Wenn Microsoft Visio die Verknüpfung zwischen einem ausgewählten Shape und der Datenzeile nicht aufheben kann oder wenn die Verknüpfung nicht vorhanden ist, überspringt Visio dieses Shape und fährt mit dem nächsten Shape in der Auswahl fort. Rufen Sie nach dem Ausführen der -Methode die Shape.GetLinkedDataRow-Methode auf, um zu bestimmen, ob beliebige Shapes in der Auswahl noch mit einer Datenzeile verknüpft sind. Wenn die GetLinkedDataRow-Methode für ein Shape fehlschlägt, gibt dies an, dass das Shape entweder nicht mehr mit der Datenzeile verknüpft ist oder nie mit der Datenzeile verknüpft wurde.

Beachten Sie, dass durch das Aufheben von Verknüpfungen zwischen Shapes und Daten keine Shape-Daten (die in einigen früheren Visio-Versionen als benutzerdefinierte Eigenschaften bezeichnet wurden) aus Shapes entfernt werden und auch keine Datengrafiken entfernt werden, die Shapes zugeordnet sind.

Beispiel

Das folgende VBA-Makro (Microsoft Visual Basic for Applications) zeigt, wie die BreakLinkToData-Methode verwendet wird, um alle Verknüpfungen zwischen den Shapes in einer Auswahl und Datenzeilen in einem Datenrecordset zu unterbrechen.

Platzieren Sie vor dem Ausführen dieses Makros mehrere Shapes auf dem Zeichenblatt, fügen Sie der DataRecordsets-Auflistung des Dokuments mindestens ein Datenrecordset hinzu, und verwenden Sie eine beliebige Verknüpfungsmethode, um mehrere Shapes mit einer oder mehreren Datenzeilen im Datenrecordset zu verknüpfen, das Sie zuletzt der Auflistung hinzugefügt haben.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Share via