vba - Visio VBA 以编程方式“单击”操作

Question

我有一些代码可以为我生成 Visio 母版，一些母版有自动生成的带有 1 个或多个操作的操作部分。我想做的是将这些母版中的每一个放到一个页面中，并遍历形状中的操作列表，然后执行每个操作，并检查它们是否完成而没有错误。

我的操作都使用 CALLTHIS 来执行 VBA 代码，所以我想可能使用 Application.ExecuteLine，然后我只需要解析 CALLTHIS 及其参数。但我想知道，Visio VBA 中是否有一些机制可以让我以编程方式执行一个动作，还是我自己坚持做这一切？

Answer 1

单元格对象上有一个 Trigger 方法，因此您可以遍历 Action 行，如下所示：

Private Sub TriggerActionCells(ByRef shpIn As Shape)
If Not shpIn Is Nothing Then
    If shpIn.SectionExists(visSectionAction, 0) Then
        Dim iRow As Integer
        For iRow = 1 To shpIn.RowCount(visSectionAction)
            shpIn.CellsSRC(visSectionAction, iRow - 1, visActionAction).Trigger
        Next iRow
    End If
End If
End Sub