本示例显示图形1 的编号。
MsgBox ActiveDocument.Shapes(1).ID