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以編程方式「點擊」操作

回答

相關問題