
What event to capture when a shape changes
Hi,
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