ShapeRange.ID Property (Publisher)
Returns a Long that represents the type of a shape, range of shapes, or property, type, or value of a wizard. Read-only.
expression A variable that represents a ShapeRange object.
This example displays the type for each shape on the first page of the active publication.
Sub ShapeID() Dim shp As Shape For Each shp In ActiveDocument.Pages(1).Shapes MsgBox shp.ID Next shp End Sub