Document.ShapesAdded Event (Publisher)
Occurs when one or more new shapes are added to a publication. This event occurs whether shapes are added manually or programmatically.
Syntax
expression .ShapesAdded
expression A variable that represents a Document object.
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