Shape.GetCustomPropertiesLinkedToData-Methode (Visio)

Artikel
04/07/2023

Ruft die IDs der Zeilen des Shape-Datenelements (benutzerdefinierte Eigenschaft) im Shape-Datenabschnitt der ShapeSheet-Kalkulationstabelle ab, die mit dem angegebenen Datenrecordset verknüpft sind.

Hinweis

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

Syntax

Ausdruck. GetCustomPropertiesLinkedToData( _DataRecordsetID_ , _CustomPropertyIndices()_ )

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

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
DataRecordsetID	Erforderlich	Long	Die ID des Datenrecordsets, das die Daten enthält, mit denen das Shape verknüpft ist.
CustomPropertyIndices()	Erforderlich	Long	Ausgabeparameter. Ein leeres, dimensionsloses Array, das die Methode mit den Zeilen-IDs der Shape-Datenelementzeilen (benutzerdefinierte Eigenschaft) im ShapeSheet des Shapes auffüllt, die mit Datenspalten im Datenrecordset verknüpft sind.

Rückgabewert

Nichts

Bemerkungen

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.

Hinweis

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

Beispiel

Das folgende VBA-Makro (Microsoft Visual Basic for Applications) zeigt, wie die GetCustomPropertiesLinkedToData-Methode verwendet wird, um die IDs der Shape-Data-Item-Zeilen (benutzerdefinierte Eigenschaft) abzurufen, die mit einer Datenspalte in einem Datenrecordset verknüpft sind.

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, werden die Zeilen-IDs aller mit Daten verknüpften ShapeSheet-Zeilen abgerufen, und die Zeilen-IDs werden im Direktfenster angezeigt.

Public Sub GetCustomPropertiesLinkedToData_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim vsoShape As Visio.Shape 
    Dim intCount As Integer 
    Dim boolIsLinked As Boolean 
    Dim alngIndices() As Long 
    Dim intArrayIndex as Integer 
            
    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 
         
        vsoShape.GetCustomPropertiesLinkedToData vsoDataRecordset.ID, alngIndices 
        For intArrayIndex = LBound(alngIndices) To UBound(alngIndices) 
             Debug.Print alngIndices(intArrayIndex) 
        Next 
     
    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.

Freigeben über