In diesem Beispiel wird die OnAction-Eigenschaft für die zweite Form eines Formbereichs festgelegt. Falls die Variable sr kein ShapeRange-Objekt darstellt, schlägt dieses Beispiel fehl.
sr.Item(2).OnAction = "ShapeAction"