Schritt III
An eine Visio-Zeichnung werden Daten einer Exceltabelle gebunden. Diese sollen dem Anwender zur Auswahl stehen. Über eine Userform kann der Anwender auswählen.
Beim Öffnen wird auf die Datenquelle zugegriffen und alle Spalten angezeigt:
Me.Controls(„ComboBox“ & i).AddItem „Keine Auswahl“
Me.Controls(„ComboBox“ & (i + 12)).AddItem „Keine Auswahl“
For j = 1 To ActiveDocument.DataRecordsets(1).DataColumns.Count
Me.Controls(„ComboBox“ & i).AddItem ActiveDocument.DataRecordsets(1).DataColumns(j).Name
Me.Controls(„ComboBox“ & (i + 12)).AddItem ActiveDocument.DataRecordsets(1).DataColumns(j).Name
Next j
Ich gehe davon aus, dass es nur eine Datenquelle gibt.