Drop Benutzerdefinierte Formen Visio 2016

Question

Ich versuche, eine benutzerdefinierte Form in mein geöffnetes Visio-Dokument zu löschen und es mit Daten zu verknüpfen, die ich aus einer SQL-Datenbank importiert habe. Ich habe die Schablone in Visio geladen. Momentan kann ich Rechtecke auf den Bildschirm fallen lassen und sie verlinken. Hier ist, was ich bisher:

For i = 1 To 6 

    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim vsoShape As Visio.Shape 
    Dim intCount As Integer 

    intCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intCount) 

    Set vsoShape = ActivePage.DrawRectangle(1, 3, 2, 1) 

    vsoShape.LinkToData vsoDataRecordset.ID, i, True 
Next i 

Answer 1

Hoffnung, dass Artikel von David J Parker Creating a Schema from Visio External Data record sets helfen kann