Shape_added event for a page

[ivan]

I ha ve a script that is lauched via Document_ShapeAdded event. but i only need it on one page for all the others it has to be disabled. How can i make marcos worl just for one page ?

[JuneTheSecond]

Hi,

Simply place a line at the beginning.
If Not ActivePage.ID = X then Exit Sub
or
If Not ActivePage.Name = XXX then Exit Sub

[Visio Guy]

Hi bdfy,

You could also set up a ShapeAdded event for just one page. This sample code shows one way to do it:

Code Select Expand


'// ThisDocument

Dim WithEvents pg As Visio.Page

Private Sub Document_RunModeEntered(ByVal doc As IVDocument)
 
  '// Set the WithEvents Visio.Page variable when
  '// this document is opened or the VBA Run Mode/Design Mode
  '// triangle-button is toggled
  Set pg = ThisDocument.Pages(1)
 
End Sub

Private Sub pg_ShapeAdded(ByVal Shape As IVShape)
  '//...do something
End Sub