DataColumn.GetProperty-Methode (Visio)

Artikel
04/07/2023

Ruft den Wert der angegebenen Datenspalteneigenschaft ab.

Hinweis

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

Syntax

Ausdruck. GetProperty (Eigenschaft)

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

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Eigenschaft	Erforderlich	VisDataColumnProperties	Die abzurufende Datenspalteneigenschaft. Mögliche Werte finden Sie in den Hinweisen .

Rückgabewert

Variant

Bemerkungen

Wenn Sie Shapes in einer Microsoft Visio-Zeichnung mit Daten in einem Datenrecordset verknüpfen, ordnet Visio die Spalten im Datenrecordset den entsprechenden Zeilen im Abschnitt Shape-Daten der ShapeSheet-Kalkulationstabelle zu. Beide entsprechen einem Shape-Datenelement.

Hinweis

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

Datenspalteneigenschaften ordnen Datenspalten bestimmten Zellen im Abschnitt Shape Data des ShapeSheets zu. Wenn Sie beispielsweise die GetProperty-Methode die DisplayName-Eigenschaft übergeben, die durch den enumerierten Wert visDataColumnPropertyDisplayName dargestellt wird, können Sie den Wert der Zelle Label im Abschnitt Shape Data des ShapeSheet für ein bestimmtes Shape-Datenelement abrufen. Darüber hinaus legt diese Eigenschaft die Bezeichnung des Shape-Datenelements im Dialogfeld Shape-Daten sowie den Namen der Datenspalte fest, die im Fenster Externe Daten auf der Visio-Benutzeroberfläche angezeigt wird.

Mögliche Werte für den Property-Parameter werden in VisDataColumnProperties deklariert und in der folgenden Tabelle angezeigt.

Konstante	Wert	Beschreibung
visDataColumnPropertyCalendar	3	Kalender der Datenspalteneigenschaft
visDataColumnPropertyCurrency	5	Währung der Datenspalteneigenschaft
visDataColumnPropertyDisplayName	6	Anzeigename der Datenspalteneigenschaft auf der Benutzeroberfläche
visDataColumnPropertyHyperlink	8	Ob der Datenspaltenwert beim Verknüpfen mit einem Shape auf der Benutzeroberfläche von Visio zu einem Hyperlink wird
visDataColumnPropertyLangID	2	Sprachen-ID der Datenspalteneigenschaft
visDataColumnPropertyType	1	Typ der Datenspalteneigenschaft
visDataColumnPropertyUnits	4	Einheiten der Datenspalteneigenschaft
visDataColumnPropertyVisible	7	Ob die Datenspalteneigenschaft auf der Benutzeroberfläche angezeigt wird

Beispiel

Das folgende VBA-Makro (Microsoft Visual Basic for Applications) zeigt, wie sie die GetProperty-Methode verwenden, um den Wert der Zelle Label im Abschnitt Shape Data für die erste Spalte im Datenrecordset abzurufen, das an die Methode übergeben wird, und ihn im Direktfenster anzuzeigen. Anschließend wird die SetProperty-Methode verwendet, um den Wert festzulegen, und der neue Wert wird angezeigt. Indem dieser Wert geändert wird, wird die Bezeichnung des Shape-Datenelements für alle mit Zeilen im Datensatz verknüpfte Shapes im Dialogfeld Shape-Daten geändert.

Zum Abrufen und Festlegen des Zellenwerts Label übergibt das Makro den visDataColumnPropertyDisplayName-Wert aus der VisDataColumnProperties-Enumeration an die Methoden DataColumn.GetProperty und DataColumn.SetProperty .

Erstellen Sie vor dem Ausführen des Makros mindestens ein Datenrecordset im VBA-Projekt, um das Makro zu übergeben.

 
Public Sub GetProperty_Example(vsoDataRecordset As Visio.DataRecordset) 
    Dim strPropertyName As String 
    Dim strNewName As String 
    Dim vsoDataColumn As Visio.DataColumn 
 
    strNewName = "New Property Name" 
    Set vsoDataColumn = vsoDataRecordset.DataColumns(1) 
 
    strPropertyName = vsoDataColumn.GetProperty(visDataColumnPropertyDisplayName) 
    Debug.Print strPropertyName 
 
    vsoDataColumn.SetProperty visDataColumnPropertyDisplayName, strNewName 
    strPropertyName = vsoDataColumn.GetProperty(visDataColumnPropertyDisplayName) 
    Debug.Print strPropertyName 
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