摘要：从老外那里找来，做了一些修改，原文地址：http://www.vbaexpress.com/kb/getarticle.php?kb_id=506OptionExplicitPublicSubLocationTable()'Thisroutinewillcreateatextfileofthelocationandsizeofall2-dshapes'onthecurrentpageDimshpObjAsVisio.Shape,celObjAsVisio.CellDimShpNoAsInteger,TabchrAsString,localCentAsDoubleDimLocat 阅读全文