Visio VBA 以编程方式“单击”操作答案

【问题标题】：Visio VBA Programmatically "Click" ActionsVisio VBA 以编程方式“单击”操作
【发布时间】：2012-09-28 04:18:43
【问题描述】：

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

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

【问题讨论】：

标签： vba office-interop visio

【解决方案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

【讨论】：