Shape.GetCustomPropertyLinkedColumn-Methode (Visio)

Ruft den Namen der Datenspalte ab, die mit der Shape-Datenzeile (benutzerdefinierte Eigenschaft) in der ShapeSheet-Kalkulationstabelle verknüpft ist, die durch den Index der benutzerdefinierten Eigenschaft angegeben wird.

Hinweis

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

Syntax

Ausdruck. GetCustomPropertyLinkedColumn( _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 Datenspalte enthält, die mit der benutzerdefinierten Eigenschaft des Shapes verknüpft ist.
CustomPropertyIndex	Erforderlich	Long	Der Index des Shape-Datenelements (benutzerdefinierte Eigenschaft), das mit der Datenspalte im Datenrecordset verknüpft ist.

Rückgabewert

Zeichenfolge

HinwBemerkungeneise

Wenn die Methode fehlschlägt, rufen Sie die Shape.IsCustomPropertyLinked-Methode auf, um sicherzustellen, dass das Shape-Datenelement (benutzerdefinierte Eigenschaftenzeile) tatsächlich mit der Datenspalte verknüpft wurde.

Hinweis

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

Beispiel

Das folgende VBA-Makro (Microsoft Visual Basic für Applikationen) veranschaulicht, wie Sie mit der GetCustomPropertyLinkedColumn-Methode den Namen der Datenrecordset-Spalte abrufen, die mit einem bestimmten Datenelement verknüpft ist.

Fügen Sie vor dem Ausführen dieses Makros mindestens ein Datenrecordset zur DataRecordsets-Auflistung des Dokuments hinzu. Das Makro legt ein Shape auf dem Zeichenblatt ab, verknüpft das Shape mit Daten in dem Datenrecordset, das der Auflistung zuletzt hinzugefügt wurde, und testet dann, ob die Verknüpfung erfolgreich war. Ist dies der Fall, wird der Name der Datenrecordset-Spalte, die mit dem angegebenen Shape-Datenelement (benutzerdefinierte Eigenschaft) verknüpft ist, im Direktfenster angezeigt.

Public Sub GetCustomPropertyLinkedColumn_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim vsoShape As Visio.Shape 
    Dim intCount As Integer 
    Dim boolIsLinked As Boolean 
    Dim lngIndex As Long 
    Dim strColumnName As String 
         
    intCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intCount) 
    Set vsoShape = ActivePage.DrawRectangle(2, 2, 4, 4) 
     
    vsoShape.LinkToData vsoDataRecordset.ID, 1, True 
    boolIsLinked = vsoShape.IsCustomPropertyLinked(vsoDataRecordset.ID, 1) 
     
    If boolIsLinked Then 
     
        strColumnName = vsoShape.GetCustomPropertyLinkedColumn(vsoDataRecordset.ID, 1) 
        Debug.Print "Linked column name is", strColumnName 
     
    Else 
     
        Debug.Print "Not linked." 
         
    End If 
 
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.