Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
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 verwendet werden. GetProperty (Eigenschaft)
Ausdruck Ein Ausdruck, der ein DataColumn-Objekt zurückgibt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| Eigenschaft | Erforderlich | VisDataColumnProperties | Die abzurufende Datenspalteneigenschaft. Siehe Hinweise zu möglichen Werten. |
Rückgabewert
Variant
Hinweise
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-Daten" des ShapeSheet zu. Wenn Sie beispielsweise die GetProperty-Methode der DisplayName-Eigenschaft übergeben, die durch den Aufzählungswert visDataColumnPropertyDisplayName dargestellt wird, können Sie den Wert der Zelle "Label" im Abschnitt "Shape-Daten" des ShapeSheets für ein bestimmtes Shape-Datenelement abrufen. Darüber hinaus legt diese Eigenschaft die Beschriftung des Shape-Datenelements im Dialogfeld Shape-Daten sowie den Namen der Datenspalte fest, die im Fenster "Externe Daten" in 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 Microsoft Visual Basic for Applications (VBA)-Makro zeigt, wie Sie mit der GetProperty-Methode den Wert der Zelle "Label" im Abschnitt "Shape-Daten" für die erste Spalte im an die Methode übergebenen Datenrecordset abrufen und im Direktfenster anzeigen. 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 Beschriftungszellenwerts ü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.