删除自定义形状Visio 2016

Question

我正在尝试将一个自定义形状拖放到打开的Visio文档中，并将其链接到我从SQL数据库导入的数据。我已将模具加载到Visio中。目前，我可以在屏幕上放置矩形并链接它们。这是我到目前为止所知道的：

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

希望David J Parker Creating a Schema from Visio External Data record sets的文章能有所帮助