本示例显示图形1 的编号。

MsgBox ActiveDocument.Shapes(1).ID