我的Word版本是word2016。

首先点击图片，然后点击【选择】



在下拉列表中选择【选中所有格式类似的文本】



即可选中所有图片啦。

网上都说word没有这个功能，其实是很多人都没发现一些功能的妙用！

功能
以宽定长，保持长宽比不变，修改图片宽度为给定的厘米数。

测试通过。
VBA代码
Sub 修改图片尺寸()
'
' 修改图片尺寸 宏
For Each p In Selection.InlineShapes
    ratio = p.Height / p.Width
    p.Width = CentimetersToPoints(10) '宽 x CM
    p.Height = p.Width * ratio '手动保持长宽比不变
Next

End Sub

参考链接

使用宏批量修改word中图片大小

但是长宽比锁定无效，因此自己手动写

步骤/方法






为了能够同时选中多个图片，我们需要首先调出打开word开始菜单，我们必须首先调出“选择多个对象”的按钮。我们首先打开word的开始菜单，然后选择“word选项”









在word选项中，我们点击 自定义，在自定义的面板中，点击图示中的红色箭头所示的小三角，这样可以打开一个下拉菜单。









在下拉菜单中，我们选择所有命令









在下面的所有命令中，找到“选择多个对象”这个命令，然后单击选中它，点击添加，这样这个命令就添加到了word的菜单中。









设置完成以后，点击确定，保存设置。









“选择多个对象”的命令就会出现了这个红色箭头指向的位置。









当word中有多个图片，并且图片的文字环绕方式不是嵌入式的时候，我们可以点击这个命令。









弹出了一个对话框，我们们点击下面的 全选按钮就能选中所有的图片，我们也可以单独都勾选自己想要选中的图片。









接着我们点击图片工具——格式，这样就能对图片进行批量的格式设置了。








注意事项




该命令选中图片的时候要求图片是非嵌入式的任何的文字环绕方式，同时要求word文件的后缀名是doc而不是docx。如果你的文档是docx，那么只需要另存为doc格式就可以了。

			

				编写Word宏使选中的图片改变为固定宽度并保持纵横比
			
	
	

		
代码如下：
 
Sub 改变图片宽度为12并设置灰色边框()
'
' 改变图片宽度为12并设置灰色边框 宏
'
'
    ' Application.Run MacroName:="改变图片大小试验"
    Selection.InlineShapes(1).Fill.Visible = msoFalse
    Selection.InlineShapes(1).Fill.Solid
    Selection.InlineShapes(1).Fill.Transparency = 0#
    Selection.InlineShapes(1).Line.Weight = 0.75
    Selection.InlineShapes(1).Line.Transparency = 0#
    Selection.InlineShapes(1).Line.Visible = msoFalse
    Selection.InlineShapes(1).LockAspectRatio = msoTrue
    picheight = Selection.InlineShapes(1).Height
    picwidth = Selection.InlineShapes(1).Width
    Selection.InlineShapes(1).Width = 340.15
    Selection.InlineShapes(1).Height = picheight * 340.15 / picwidth
    Selection.InlineShapes(1).PictureFormat.Brightness = 0.5
    Selection.InlineShapes(1).PictureFormat.Contrast = 0.5
    Selection.InlineShapes(1).PictureFormat.ColorType = msoPictureAutomatic
    Selection.InlineShapes(1).PictureFormat.CropLeft = 0#
    Selection.InlineShapes(1).PictureFormat.CropRight = 0#
    Selection.InlineShapes(1).PictureFormat.CropTop = 0#
    Selection.InlineShapes(1).PictureFormat.CropBottom = 0#
 
    With Selection.InlineShapes(1)
        With .Borders(wdBorderLeft)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = -603930625
        End With
        With .Borders(wdBorderRight)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = -603930625
        End With
        With .Borders(wdBorderTop)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = -603930625
        End With
        With .Borders(wdBorderBottom)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = -603930625
        End With
        .Borders.Shadow = False
    End With
    With Options
        .DefaultBorderLineStyle = wdLineStyleSingle
        .DefaultBorderLineWidth = wdLineWidth050pt
        .DefaultBorderColor = -603930625
    End With   
End Sub












	
	
	

		posted on 2017-01-09 12:58 东东老师 阅读(...) 评论(...)  编辑 收藏
	


转载于:https://www.cnblogs.com/dongdong2016/p/6264881.html