对word中的几个图片同时进行尺寸修改
1、对word中的几个图片同时进行尺寸修改
1、打开word，工具-宏-宏（或者直接按Alt+F8）进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行！
2、宏名起好了，单击“创建”进入Visual Basic 编辑器，输入如下代码并保存 Sub setpicsize（) ‘设置图片大小 Dim n ‘图片个数 On Error Resume Next ‘忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count ‘InlineShapes类型图片 ActiveDocument.InlineShapes(n).Height = 400 ‘设置图片高度为 400px ActiveDocument.InlineShapes(n).Width = 300 ‘设置图片宽度 300px Next n For n = 1 To ActiveDocument.Shapes.Count ‘Shapes类型图片 ActiveDocument.Shapes(n).Height = 400 ‘设置图片高度为 400px ActiveDocument.Shapes(n).Width = 300 ‘设置图片宽度 300px Next n End Sub
3、返回word，工具-宏-宏（或者直接按Alt+F8），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！（图片多时，可能会花一些时间） 按比例缩放篇 这部分要说的是把word中的所有图片按比例缩放！ 具体操作同上，只是代码部分稍做修改，代码如下： Sub setpicsize（) ‘设置图片大小 Dim n ‘图片个数 Dim picwidth Dim picheight On Error Resume Next ‘忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count ‘InlineShapes类型图片 picheight = ActiveDocument.InlineShapes(n).Height picwidth = ActiveDocument.InlineShapes(n).Width ActiveDocument.InlineShapes(n).Height = picheight * 1.1 ‘设置高度为1.1倍 ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 ‘设置宽度为1.1倍 Next n For n = 1 To ActiveDocument.Shapes.Count ‘Shapes类型图片 picheight = ActiveDocument.Shapes(n).Height picwidth = ActiveDocument.Shapes(n).Width ActiveDocument.Shapes(n).Height = picheight * 1.1 ‘设置高度为1.1倍 ActiveDocument.Shapes(n).Width = picwidth * 1.1 ‘设置宽度为1.1倍 Next n End Sub 若还想使所有图片居中对齐，可在循环中加入下面的语句： ActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignment= wdAlignParagraphCenter’左对齐：wdAlignParagraphLeft 注意：这里的Shapes(InlineShapes)不仅仅是指图片，也包含其它的，自选图形、任意多边形、OLE 对象、ActiveX 控件、图片等。
2、如何实现word里面图片的缩放
快速调整图片大小：
选中图片，这时图片的边缘会出现一个bai线框，如图所示，拖曳线框就可以凋整图片的大小。
精确调整图片大小：
1、选中要调整的图片，Word会新增“格式du”选项卡。
2、点击“格式”选项卡，在菜单栏最右侧“大小”区域的右下角，点击启动器，如图所示zhi。
3、在弹出来的“大小”对话框中，勾选“锁定纵横比”，然后在“尺度和旋转”区域输入想要设置的高度和宽度值，单击“关闭”完dao成设置。
按百分比缩放图片：
1、打开图片“大小”对话框，在“缩放比例”区域输入想要设置的高度和宽度的比例，最后单击“关闭”。
2、对图片进行各种编辑专后，如果对设置不满意，可以在“格式”选项卡的“调整”区域点击“重设图片”按钮，将图片恢复至属最初的状态，以便重新编辑。
转载请注明：范的资源库 » 对word中的几个图片同时进行尺寸修改
