futrueface

摘要： Sub AdjustImagesWidthPreserveAspectRatio() Dim doc As Document Dim shp As InlineShape Dim img As Shape Set doc = ActiveDocument ' 设置当前活动文档 ' 设置图片宽度（以厘 阅读全文