文本框的设置是selection.shaperange.top，图文框呢？谢谢！
------解决方案--------------------------------------------------------
Selection.Frames(1).VerticalPosition
------解决方案--------------------------------------------------------
Selection.Frames(1).HorizontalPosition