如何统一调节word中图片的大小

先说明一下啊，我用的是zhidaowps，不是office。

1. 新建一个空白文档，在最左上角“wps文字”里面选择选项，出来选项对话框，选择编辑，在最下面的“将图片插入/粘贴为”选择四周型（只要不是嵌入型都可以）

2. 插入你需要的图片，这个时候图片大小是不一样的，然后选择多张图片图片（可以按住回ctrl键逐一选择） 这个时候在图片工具下面设置你想要的高度和宽度就可以了。

   注意：图片的环绕方式不同可能导致不能选择多张图片，第一答步就是为了能够全选所有图片。

单击图片，然后把鼠标光标放到四角中的一角，按住鼠标拖拽即可。

插入多张图片后，按住shift多选，把要统一改的图片都选上，进入格式选项，在大小功能区调整大小值，就能统一调整多张的图片了

Alt+F11——百菜单栏——插入——模块——粘贴以下代码：

Subsetpicsize() '设置图片度大小
Dimn '图片个数
OnError Resume Next '忽略知错误
Forn = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(n).Height= 200 '设置图片高度道为 200px
ActiveDocument.InlineShapes(n).Width= 300 '设置图片宽度专 300px
Nextn
Forn = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
ActiveDocument.Shapes(n).Height= 200 '设置图片高度为 200px
ActiveDocument.Shapes(n).Width= 300 '设置图片宽度 300px
Nextn
EndSub

关闭VBA——菜单栏——工具——宏——宏——选宏名属——运行。