用宏批量定位word中图片位置
我有一个word文档,里面有多幅图,但图片的缩进位置不统一,有些靠右,有些居中,有些靠左等等。
能否通过编制宏一次完成调整,让所有图片靠左,或居中。
我知道通过宏可以批量完成一个word中所有图片大小的修改,在次与大家共享,也希望可以给大家参考。
1、Alt+F8调出宏编辑窗口
2、点创建按钮,创建新宏,setpicsize,内容如下:
Sub setpicsize()
'设置图片大小
' 宏在 2008-3-31 由 hero_thm 录制
'
Dim j '计数图片个数
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数,图片类型为inlineshapes
ActiveDocument.InlineShapes(j).Height = 362 '设置高度
ActiveDocument.InlineShapes(j).Width = 481.87 '设置宽度
Next j
End Sub
3、保存退出,点运行setpicsize宏,word中所有的图片统一调整为宽17cm,高12.77cm
----------------------------------------
Sub setpicsize()
'设置图片大小
' 宏在 2008-3-31 由 hero_thm 录制
'
Dim j '计数图片个数
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数,图片类型为inlineshapes
If ActiveDocument.InlineShapes(j).Width > 480 Then
ActiveDocument.InlineShapes(j).Width = 400 '设置宽度
End If
Next j
End Sub
word批量处理图片
打开WORD,在”工具“菜单下选择”选项“命令。
在”选项“窗口中,在”编辑”选项卡下,将插入图片的格式选择为“四周型”,为什么要这么操作,因为默认插入图片的方式是嵌入式,使用“选择多个对象”命令时无法选择。
在“插入”菜单中选择“图片”/“来自文件”
在“插入图片“对话框中选择要插入的图片。
在“绘图”工具栏中的“添加或删除按钮”中选择“选中多个对象”
使用“选中多个对象”,将所有插入的图片全部选中。
双击任意一图片,在弹出的对话框中,将图片设置一固定尺寸,并取消下方的”锁定纵横比“命令。
这个时候会发现所有的图片都变成了统一尺寸大小了。
那么怎么样将这些图片导出来 在”文件“菜单中选择”另存为“命令。
在”另存为“对话框中将保存类型设置为”网页“,最后点击”确定“按钮保存文件。
打开刚刚保存的文件,右击在弹出的菜单选择以”大小“进行排序。
可以发现,修改的后的图片都是相同的尺寸了。
word批量插入图片及批量修改大小
1、这里以WPS版本的Word为例。打开Word,在插入图片之前,先做一个设置,进入【WPS文字】-【选项】-【编辑】-【将图片插入为四周型】。
2、接下来插入图片。点击工具栏中的【插入】-【图片】-【来自文件】,在电脑中找到要插入的图片,可以按住ctrl键批量选择多张图片。
3、选择工具栏中的【图片工具】,下方可以直接输入高度和宽度进行大小调整,因为每张比例不同,所以锁定纵横比前面的勾勾要去掉。这里我们高度和宽度都输入10厘米。
4、统一大小之后的效果如图所示,这样就批量调整了图片尺寸,非常方便。点击【图片工具】调整大小设置项右下角的小方框图标,还可以做其他形式的大小调整。
5、布局设置框中选择【大小】,这里高度和宽度的调整还可以根据页面的相对值来调整,即占页面的比例,这里我们输入25%。不管哪种方式调整,只需几分钟就可以完成,还是非常高效的。
word怎样批量处理图片大小啊?
使用VBA:
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
如何利用Word批量将图片调整到同样大小尺寸
方法/步骤
由于本方法用到了word2013,所以还在使用低版本wrod的朋友,可以网络搜索下载新版的office2013,安装后启动Word2013。
打开word后,选择“页面布局”选项卡,并单击“页边距”按钮。
在弹出的快捷菜单中选择“自定义页边距”命令。
接着会弹出“页面设置”对话框,在“页边距”标签中,我们要修改“左右边距”,根据将要设置的图片的宽度大小,计算出左右边距大小。比如:我们要插入宽度为10厘米的图片,那么A4页面的左右边距就可以设为(21-10)/2,就是左右边距各为5.5厘米。设置完后点击“确定“。
返回word界面后,单击“插入”选项卡中的“图片”按钮,插入本机中的图片。
在弹出的“插入图片”对话框中选择要插入到word中的图片,单击右下角的“插入”按钮。
图片插入到word后,word就会自动对图片大小进行调整,调整的宽度就是我们刚才设置的10厘米。
在插入图片时,可以一次选中多张图片批量插入到word中。
批量把多张图片导入到word后,我们就可以看到的图片都按同样的宽度设置好了。
图片按统一的宽度大小设置成功后,再修改文档的页边距,图片的大小也不会再改变了。这时就可以输入文字,继续对文档进行编辑了。
word2007如何批量处理图片
word2007批量处理图片,有些困难吧。
不过你可以用“迷你图片批量处理工具”批量处理图片,处理后再导入到Word2007中。
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
这样就可以了!
转载请注明出处51数据库 » word批量处理照片大小 如何批量处理Word中的图片大小