DataColumns.SetColumnProperties-Methode (Visio)

Artikel
04/07/2023

Legt mindestens eine Datenspalteneigenschaft für eine oder mehrere Datenspalten fest.

Hinweis

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

Syntax

Ausdruck. SetColumnProperties (ColumnNames(), Properties(), Values())

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

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
ColumnNames()	Erforderlich	String	Ein Array von Zeichenfolgen, die Datenspaltennamen darstellen.
Properties()	Erforderlich	Long	Ein Array von Datenspalteneigenschaften, z. B. VisDataColumnProperties. Mögliche Werte finden Sie in den Hinweisen.
Values()	Erforderlich	Variant	Ein Array von Werten, die den Eigenschaften zugewiesen werden sollen. Mögliche Werte finden Sie in den Hinweisen.

Rückgabewert

Nichts

Bemerkungen

Die SetColumnProperties-Methode ist eine effizientere Möglichkeit, Eigenschaften für mehrere Datenspalten gleichzeitig festzulegen, als Eigenschaften spaltenweise festzulegen. Abhängig von den Elementen, die Sie in jedem der drei Parameterarrays platzieren, können Sie mehrere Eigenschaften derselben Datenspalte oder eine oder mehrere Eigenschaften verschiedener Datenspalten ändern. Übergeben Sie für jede Änderung, die Sie vornehmen möchten, verwandte Spaltenname-/Eigenschafts-/Wert-Triplets an den entsprechenden Positionen aller drei Arrays. Beachten Sie, dass die Größe aller drei Arrays, die Sie an die -Methode übergeben, identisch sein muss, sonst gibt die Methode einen Fehler zurück.

Übergeben Sie für den ColumnNames()-Parameter ein Array mit den Namen der Datenspalten, deren Eigenschaften Sie ändern möchten. Wenn Sie mehrere Eigenschaften derselben Spalte ändern möchten, können Sie entweder denselben Namen an mehreren Arraypositionen platzieren, oder den Spaltennamen an einer Arrayposition und leere Zeichenfolgen an den folgenden Positionen, die den Arraypositionen der Eigenschaften entsprechen, die Sie ändern möchten.

Mögliche Werte für Elemente im Properties()-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	Datentyp der Datenspalteneigenschaft
visDataColumnPropertyUnits	4	Einheiten der Datenspalteneigenschaft
visDataColumnPropertyVisible	7	Ob die Datenspalteneigenschaft auf der Benutzeroberfläche angezeigt wird

Mögliche Werte für Elemente im Values()-Parameterarray hängen von den entsprechenden Parameterwerten des Property()-Arrays ab. Die Tabelle im Thema DataColumn.SetProperty enthält gültige Datenspalteneigenschaftswerte für jede Datenspalteeigenschaft, abhängig vom Datentyp der Datenspalte.

Beispiel

Das folgende VBA-Makro (Microsoft Visual Basic for Applications) zeigt, wie der Wert einer einzelnen Eigenschaft für zwei verschiedene Spalten im zuletzt hinzugefügten Recordset in der DataRecordsets-Auflistung des aktiven Dokuments festgelegt wird. Das Makro geht davon aus, dass das zuletzt hinzugefügte Recordset eines ist, das auf Daten in der ORGDATA.xls Kalkulationstabelle basiert, die mit Visio ausgeliefert wird. Beispielcode zum Hinzufügen dieses Datenrecordsets finden Sie im Thema DataRecordsets.Add-Methode . Sie können diesen Code jedoch mit jedem Datenrecordset verwenden, das mindestens zwei Spalten enthält.

Das Makro ändert den Anzeigenamen der ersten Spalte in "Dept." und legt die Hyperlink-Eigenschaft der zweiten Spalte auf True fest. Danach (wenn Sie ORGDATA als Datenquelle verwendet haben) fungiert die E-Mail-Adresse von Shapes, die mit Daten im Datenrecordset verknüpft sind, als Link.

Beachten Sie, dass das Ändern des Anzeigenamens einer Datenspalte nur die DisplayName-Eigenschaft und nicht den programmgesteuerten Namen der Spalte ändert, der durch die Name-Eigenschaft angegeben wird.

 
Public Sub SetColumnProperties_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim intCount As Integer 
     
    intCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intCount) 
     
    Dim astrColumnNames(1) As String 
    Dim alngProperties(1) As Long 
    Dim avarValues(1) As Variant 
     
    astrColumnNames(0) = vsoDataRecordset.DataColumns(1).DisplayName 
    astrColumnNames(1) = vsoDataRecordset.DataColumns(2).DisplayName 
        
    alngProperties(0) = visDataColumnPropertyDisplayName 
    alngProperties(1) = visDataColumnPropertyHyperlink 
        
    avarValues(0) = "Dept." 
    avarValues(1) = True 
         
    vsoDataRecordset.DataColumns.SetColumnProperties astrColumnNames, alngProperties, avarValues 
 
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