《批量图片设置宏代码》由会员分享,可在线阅读,更多相关《批量图片设置宏代码(1页珍藏版)》请在金锄头文库上搜索。
批量图片浮于上方宏代码Sub Float() Float MacroDim iOn Error Resume NextFor i = 1 To ActiveDocument.InlineShapes.CountActiveDocument.InlineShapes(i).ConvertToShapeNext iFor i = 1 To ActiveDocument.InlineShapes.CountActiveDocument.InlineShapes(i).ConvertToShapeNext iEnd Sub批量图片设置大小代码Sub pic()Dim nOn Error Resume NextFor n = 1 To ActiveDocument.InlineShapes.Count InlineShapesActiveDocument.InlineShapes(n).Height = 130ActiveDocument.InlineShapes(n).Width = 155Next nFor n = 1 To ActiveDocument.Shapes.Count ShapesActiveDocument.Shapes(n).Height = 130ActiveDocument.Shapes(n).Width = 155Next nEnd Sub