Private Sub Document_ShapesAdded()
Example
This example displays a message whenever a new shape is added to the active publication. For this example to work, you must place this code into the ThisDocument module.
Private Sub PubDoc_ShapesAdded()
MsgBox "You just added a new shape."
End Sub