Shape.BreakLinkToData-Methode (Visio)

Artikel
04/07/2023

Hebt die Verknüpfung zwischen dem Shape und der Datenzeile auf, mit der das Shape im angegebenen Datenrecordset verknüpft ist.

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 Shape-Objekt zurückgibt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
DataRecordsetID	Erforderlich	Long	Die ID des Datenrecordsets, das die Datenzeile enthält, mit der das Shape verknüpft ist.

Rückgabewert

Nichts

Bemerkungen

Durch das Aufheben der Verknüpfung zwischen einem Shape und einer Datenzeile werden keine Shape-Daten (die in einigen früheren Visio-Versionen als benutzerdefinierte Eigenschaften bezeichnet wurden) aus dem Shape entfernt. Es werden auch keine dem Shape zugeordneten Datengrafiken entfernt.

Beispiel

Das folgende VBA-Makro (Microsoft Visual Basic für Applikationen) veranschaulicht, wie Sie mit der BreakLinkToData-Methode die Verknüpfung zwischen einem Shape und einer Datenzeile in einem Datenrecordset aufheben.

Platzieren Sie vor dem Ausführen dieses Makros ein Shape auf dem Zeichenblatt, fügen Sie der DataRecordsets-Auflistung des Dokuments mindestens ein Datenrecordset hinzu, und verwenden Sie eine beliebige Verknüpfungsmethode, um das Shape mit einer Datenzeile in dem Datenrecordset zu verknüpfen, das Sie der Auflistung zuletzt hinzugefügt haben. Sie können das Shape auch mit einer Datenzeile verknüpfen, indem Sie die Zeile aus dem Fenster Externe Daten auf das Shape auf der Visio-Benutzeroberfläche ziehen. Wählen Sie anschließend das verknüpfte Shape aus.

Public Sub BreakLinkToData_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim vsoShape As Visio.Shape 
    Dim intCount As Integer 
         
    intCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intCount) 
     
    Set vsoShape = ActiveWindow.Selection.PrimaryItem 
    vsoShape.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.

Freigeben über