I need to write some VBA code that executes when a shape is changed. I have
read through the DVS manual and I made some progress (i.e., I copied the
code examples on pages 385-6 and they worked). I then created routines like
this:

Dim WithEvents pageObj As Visio.Page

Private Sub Document_DocumentOpened(ByVal doc As IVDocument)
    Set pageObj = ActivePage
End Sub

Public Sub pageObj_BeforeShapeDelete(ByVal Shape As IVShape)
    ' do something here
End Sub

Private Sub pageObj_ShapeChanged(ByVal Shape As IVShape)
    ' do something here
End Sub

The pageObj_BeforeShapeDelete routine works just fine. My thinking with
regard to pageObj_ShapeChanged is that when a shape on the page is changed,
this event would be signaled, but that does not appear to be the case.

What do I need to do to catch an event when a shape on the page changes?

Thank you!

--

Gerry Roston

.