Visio VBA以编程方式“点击”操作

我有一些代码可以为我生成Visio主人，一些主人具有自动生成的操作部分以及一个或多个操作。我想要做的是将这些主人放到一个页面中，然后遍历形状中的动作列表，并执行每个动作，然后检查它们是否完成而没有错误。Visio VBA以编程方式“点击”操作

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

来源

2012-06-06 Jon Fournier

有细胞对象的触发方式，所以你可以通过你迭代操作行是这样的：

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

来源

2012-06-07 08:15:23 JohnGoldsmith

Visio VBA以编程方式“点击”操作

回答

相关问题