Shape.IsCustomPropertyLinked-Methode (Visio)

Artikel
04/07/2023

Gibt zurück, ob die Shape-Datenzeile (benutzerdefinierte Eigenschaft) im Abschnitt Shape-Daten der ShapeSheet-Kalkulationstabelle des Shapes mit einer Datenzeile 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. IsCustomPropertyLinked( _DataRecordsetID_ , _CustomPropertyIndex_ )

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.
CustomPropertyIndex	Erforderlich	Long	Der Index der Zeile mit Shape-Daten (benutzerdefinierte Eigenschaft) im Shape-Datenabschnitt der ShapeSheet-Kalkulationstabelle.

Rückgabewert

Boolesch

Bemerkungen

Rufen Sie diese Methode auf, bevor Sie die GetCustomPropertyLinkedColumn-Methode aufrufen, um sicherzustellen, dass das Shape-Datenelement (benutzerdefinierte Eigenschaftenzeile) tatsächlich mit einer Datenspalte verknüpft ist.

Hinweis

In einigen früheren Versionen von Visio wurden die Shape-Daten als benutzerdefinierte Eigenschaften bezeichnet.

Wenn Sie sich bewusst machen, wie Shapes mit Daten verknüpft sind, können Sie leichter verhindern, dass beim Aktualisieren der Daten in Datenrecordsets Konflikte und beschädigte Verknüpfungen auftreten.

Beispiel

Das folgende VBA-Makro (Microsoft Visual Basic for Applications) zeigt, wie die IsCustomPropertyLinked-Methode verwendet wird, um zu bestimmen, ob die benutzerdefinierte Eigenschaftenzeile eines Shapes mit einer Datenzeile in einem Datenrecordset verknüpft ist.

Fügen Sie vor dem Ausführen dieses Makros mindestens ein Datenrecordset zur DataRecordsets-Auflistung des Dokuments hinzu. Das Makro löscht ein Shape und testet dann, ob das erste Shape-Datenelement des Shapes mit einer Datenzeile im Datenrecordset verknüpft ist, das der Auflistung zuletzt hinzugefügt wurde, und druckt das Ergebnis im Direktfenster. Der Test schlägt fehl, da das Shape nicht mit Daten verknüpft wurde. Anschließend wird das Shape mit Daten im zuletzt hinzugefügten Datenrecordset verknüpft, und der Test wird erneut ausgeführt.

Public Sub IsCustomPropertyLinked_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim vsoShape As Visio.Shape 
    Dim intCount As Integer 
    Dim boolIsLinked As Boolean 
         
    intCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intCount) 
     
    Set vsoShape = ActivePage.DrawRectangle(2, 2, 4, 4) 
     
    boolIsLinked = vsoShape.IsCustomPropertyLinked(vsoDataRecordset.ID, 1) 
     
    Debug.Print boolIsLinked 
     
    vsoShape.LinkToData vsoDataRecordset.ID, 1, True 
    boolIsLinked = vsoShape.IsCustomPropertyLinked(vsoDataRecordset.ID, 1) 
     
    Debug.Print boolIsLinked 
     
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