Question

怎样一次选中word文档里的所有图片并调整其大小？

文字可以一次选中调大小，而图片只能一个个改，很麻烦。求解决方案，不考虑调整显示比例的方法。谢谢。
请回答者注意，本人就是拿ctrl+A来选中全部内容然后调整大小时发现只能调文字，不能调图片大小的。另外，是一次选中，不是把图片一个个选中。目前前两个答案还不能满足题意，希望各位再接再厉，谢谢。

今天看到了第三位回答者的回答，非常感谢回答者：abcsamsung的答案，但是由于我这份文档里面的图片较多，而且全部是嵌入型的，如果每一个都改为穿越型的，再去按shift选中所有，调整大小的话，那么和我把每张图片逐个放大的效率也就差不多了……再次感谢前三位回答者的耐心解答，并且希望能够看到提高效率的解。劳烦各位，顿首再拜，多谢多谢！

看了第四，五位网友的回答，只有一句话，我感觉你们太草率和不认真了！就算我没有明确指出我要调整的图片是inlineshapes类型的（不能用shift复选），你们也应该能从前面几位回答者和我的补充中找到线索！这简直让我感到你们毫无责任感地侮辱了前面几位解答者（特别是abcsamsung）的辛劳和我提出的问题！

Answer 1

其实你误解了网友寒浪的意思，他说的意思是在按住shift不松，用鼠标将你文档页面中的所有图片点一遍，使它们全部被选中，这时就可以同时调整所有图片的大小了。
你可能还会说，那些图片一次只能选中一个，选第二个时前一个又脱离了被选中状态。这也有解决的办法：你先将某个图片选中，将其的“环绕方式”从“嵌入型”（注意：此时的“尺寸控点”为八个实心的小方块）改为“穿越型”（“尺寸控点”变为空心的小方块），将所有的图片全部改为“穿越型”后，就能在按住shift键的同时将文档中的所有图片选中，再在“设置图片格式”中一次性改变它们的大小了。
可要注意是否“锁定纵横比”哟！
祝你成功。

Answer 2

按住shift不松，用鼠标将你文档页面中的所有图片点一遍，使它们全部被选中，点击右键可以对图片进行编辑

Answer 3

按SHIFT然后把需要调整的图片选中，在调就OK

Answer 4

用这个宏吧，我也是找了好久好久，不是我写的，感谢那个原创者。如下：

Sub 图片统一大小()
On Error Resume Next
Dim mywidth
Dim myheight
Application.ScreenUpdating = False '关闭屏幕更新
mywidth = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,宽度根据输入的高度数值自动调整；", Title:="请输入图片宽度", Default:="0")) * 28.35
myheight = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,高度根据输入的宽度数值自动调整；", Title:="请输入图片高度", Default:="0")) * 28.35
'------------------------------------------------------------------
'调整嵌入式图形
Dim pic As InlineShape
For Each pic In ActiveDocument.InlineShapes
If mywidth = "0" Then
pic.Height = myheight
pic.ScaleWidth = pic.ScaleHeight
ElseIf myheight = "0" Then
pic.Width = mywidth
pic.ScaleHeight = pic.ScaleWidth
Else
pic.Width = mywidth
pic.Height = myheight
End If
Next
'调整浮动式图形
Dim tu As Shape
For Each tu In ActiveDocument.Shapes
If mywidth = "0" Then
tu.Height = myheight
ElseIf myheight = "0" Then
tu.Width = mywidth
Else
tu.LockAspectRatio = msoFalse
tu.Width = mywidth
tu.Height = myheight
End If
Next
Application.ScreenUpdating = True '恢复屏幕更新
End Sub

Answer 5

利用word中的宏可以解决这个问题。

打开VB编辑器，将这个过程分为两个宏来处理：
1.将所有inlineshapes转变为shapes类型；
for each ishapes in selection.inlineshapes
ishapes.converttoinlineshape
next ishapes

2.将所有转化的shapes类型放大一定倍数然后还原为inlineshapes类型：
selection.shaperange.shapewidth 3,false
selection.shaperange.shapeheight 3,false
for each n in selection.shaperanges
n.converttoinlineshape
next n

上式中的两个三代表将长和宽分别扩大三倍。其他的性质可以自己探索~~最后选中图形执行宏就行了！