Dim i
On Error Resume Next
For i=1 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(i).Height=300 '修改为自己需要的值
ActiveDocument.InlineShapes(i).Width=200 '修改为自己需要的值
Next
For i=1 To ActiveDocument.Shapes.Count
ActiveDocument.Shapes(i).Height=300 '修改为自己需要的值
ActiveDocument.Shapes(i).Width=200 '修改为自己需要的值
Next
使用方法：
打开WPS文件，点工具——宏——宏，在“宏的位置”中选择“（文档1）”（也就是你的文档名），在“宏名”栏随便输入一个名称（如tpdx），点“创建”。在出现的编辑框中将上面的代码复制到Sub tpdx() 与 End sub之间。
按F5运行宏，或者关闭宏编辑器回到文档，再在“宏”菜单中运行宏。
