打开文档后,按Alt+F11,在左边Porject下找到ThisDocument,右键插入模块,贴上下面的 Sub Macro()For Each iShape In ActiveDocument.InlineShapesiShape.Height = iShape.Height * 0.25iShape.Width = iShape.Width * 0.25Next iShapeEnd Sub 按F5运行一次就可以了。
时间: 2024-10-22 07:55:44
打开文档后,按Alt+F11,在左边Porject下找到ThisDocument,右键插入模块,贴上下面的 Sub Macro()For Each iShape In ActiveDocument.InlineShapesiShape.Height = iShape.Height * 0.25iShape.Width = iShape.Width * 0.25Next iShapeEnd Sub 按F5运行一次就可以了。