“Directly caused by user” Visio events identifiable as such?

[Visisthebest]

Is it possible in Visio to distinguish between events that a user directly caused versus events that were generated by VBA or add-in code?

For instance, a user can add a shape by hand or code can add a shape, would be great to be able to distinguish the events generated as either user or code-caused.

[Thomas Winkel]

Hi,

maybe you could consider some error handling to ensure that shapeAddedByCode is always false after your code finished or crashed.

Code Select Expand


Option Explicit

Dim shapeAddedByCode As Boolean

Private Sub Document_ShapeAdded(ByVal vsoShape As Visio.IVShape)
    If shapeAddedByCode Then
        MsgBox "Shape added by code"
    Else
        MsgBox "Shape added by user"
    End If
End Sub

Sub AddShapeToActivePage()
    Dim shp As Visio.Shape
   
    shapeAddedByCode = True
    Set shp = ActivePage.DrawRectangle(1, 4, 4, 1)
    shapeAddedByCode = False
End Sub


[Visisthebest]

Thank you Thomas that is a good solution.

[Thomas Winkel]

Another option could be to disable events temporary:

Code Select Expand


Option Explicit

Private Sub Document_ShapeAdded(ByVal vsoShape As Visio.IVShape)
    MsgBox "Shape added"
End Sub

Sub AddShapeToActivePage()
    Dim shp As Visio.Shape
   
    Application.EventsEnabled = False
    Set shp = ActivePage.DrawRectangle(1, 4, 4, 1)
    Application.EventsEnabled = True
End Sub


[Visisthebest]

Yes  but wondering about the unintended effects of that.