fieldset{padding:10px;}
VBA 刷PPT OLE对象会变形，求解VBA刷PPTOLE对象会变形，求解；还有我在2003下，auto_open函数为什么不自动执行，要手动去调用；PPT为http://hi.csdn.net/attachment/201112/13/0_1323783655LPau.gif下载到本地修改为report.ppt
Subauto_open()DimslideCountAsIntegerDimshapeCountAsIntegerDimshapeTypeAsIntegerDimshapeWidthAsIntegerDimshapeHeightAsIntegerForslideCount=1ToActivePresentation.Slides.CountForshapeCount=1ToActivePresentation.Slides(slideCount).Shapes.CountshapeType=ActivePresentation.Slides(slideCount).Shapes(shapeCount).Type'autoShape:1object:7picture:13'IfshapeType=7ThenIfshapeType=msoEmbeddedOLEObjectThen'MsgBoxActivePresentation.Slides(slideCount).Shapes(shapeCount).Name'MsgBoxActivePresentation.Slides(slideCount).Shapes(shapeCount).TypeSetobj=ActivePresentation.Slides(slideCount).Shapes(shapeCount).OLEFormatOnErrorResumeNextshapeWidth=ActivePresentation.Slides(slideCount).Shapes(shapeCount).WidthshapeHeight=ActivePresentation.Slides(slideCount).Shapes(shapeCount).HeightActivePresentation.Slides(slideCount).Shapes(shapeCount).OLEFormat.Object.RefreshActivePresentation.Slides(slideCount).Shapes(shapeCount).Width=shapeWidthActivePresentation.Slides(slideCount).Shapes(shapeCount).Height=shapeHeightEndIfNextNextActivePresentation.Save心有多大，舞台就有多大
