0

Visio マスターを生成するコードがいくつかあり、一部のマスターには、1 つ以上のアクションを含むアクション セクションが自動生成されています。私がやりたいのは、これらの各マスターをページにドロップし、シェイプ内のアクションのリストを実行して、それぞれを実行し、エラーなしで完了するかどうかを確認することです。

私のアクションはすべて CALLTHIS を使用して VBA コードを実行するため、おそらく Application.ExecuteLine を使用することが可能であり、その後は CALLTHIS とその引数を解析するだけで済みます。しかし、Visio VBA には、プログラムでアクションを実行できるメカニズムがあるのでしょうか。

4

1 に答える 1

1

cell オブジェクトには 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
于 2012-06-07T08:15:23.323 に答える