分析:由于Word不能像excel一样多选图片,所以不能多选图片后统一缩放,所以考虑可以重复多次一样动作的宏功能:
打开视图-宏-输入一个名字-创建
2.输入以下代码,注意替换内有的内容和尺寸不是下面的5cm可以直接更改。
Sub FormatPics()
Dim iSha As InlineShape
For Each iSha In ActiveDocument.InlineShapes
If iSha.Type = wdInlineShapePicture Then
iSha.LockAspectRatio = msoFalse '不锁定纵横比
iSha.Width = CentimetersToPoints(5) '宽5CM
iSha.Height = CentimetersToPoints(5) '高5CM
End If
Next
End Sub
3.宏-运行,可以直接批量缩放图片尺寸,左边为最终效果图。
word2003中怎样批量调整图片大小
一,在word中按alt+f11组合键,进入VBA模式
二,在左边的工程资源管理器中找到你的word文档,在其上右键/添加/模块
三,把下面代码复制,粘贴进去.
四,更改数值, 改一下宽度和高度数值(10),点运行(类似播放按钮.)或f5,即可设置文档中全部图片
Sub Macro()
Mywidth=10'10为图片宽度(厘米)
Myheigth=10'10为图片高度(厘米)
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.345 * Myheigth
iShape.Width = 28.345 * Mywidth
Next iShapeEnd Sub
由于是批量的处理同样的事情,因此要用到宏。
是这样的,如果你的图片显示的是嵌入式的。也就是不能旋转的那种格式,钻切换大小会很容易,方法
要使用宏命令。
宏主要用来处理有规律的重复的工作,相当于批处理。想好了就能编辑出来。工具→宏→录制新宏→然后指定一个快捷键(如L,相当于ctrl L快捷键),然后指定、关闭。开始录制宏。把你能够重复的操作执行一下,以计算机能识别的重复为准。然后→工具→宏→停止录制。这样宏就录制出来了。你ctrl L执行就行了。连续按,则连续执行。如果不完全正确,还要修改或重新录制宏。
对你来说:使用的循环是:查找,图形→然后调整大小,然后鼠标移到图形右侧。然后再执行循环。这个命令是:ctrl F,点开高级,查找里面,选择特殊格式里面的“图形”,单击查找下一个。关掉查找界面,回到word编辑界面。直接去单击 格式菜单里面的 图片,设置大小为你认可的比例。确定。然后将光标用键盘移出 图片(右移以下)。
执行宏即可。
如何批量调整word中图片的分辨率大小?
选一个图片点右键/设置图片格式/点图片选项卡/点压缩/点文档中所有图片 OK
选项卡下面“压缩图片”和“删除图片的裁剪区域”要打勾
上面分辨率选不更改 或WEB/屏幕
你再试一下
怎样批量调整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中插入的图片大小,需要用到“选中多个对象”这个工具;操作方法如下:
1;文档中所有的图片无论是放在一页,还是分布在多页上,操作都一样;
先在文档绘图工具栏中点下“选中多个对象”工具;
2;弹出的操作框中,点“全选”,点"全选“后,在”对象“这里的图片即被打上勾;然后,点确定;
3;点确定后,文档中所有图片即被同时选中;
4;然后,在任意一张图片上鼠标右键点下,弹出的菜单中点“设置图片格式”;
5;弹出的操作框中,点下“大小”;打开“大小”设置框;在“高度”和“宽度”分别 设置自己预定的数字;在“锁定纵横比”和“相对原始图片大小”这两处要取消勾;然 后点确定。
6;点确定后,文档中所有图片都同时一次的批量的调整了大小。
怎样批量设置word文档里图片大小
1、首先选中任意一张图片,然后右键点击该图片,在弹出菜单中选择大小和位置菜单项。
2、然后在弹出的布局窗口中设置好图片的高度与宽度。
3、另外同时要把锁定纵横比与相对原始图片大小前的勾选去掉。
4、接下来我们选择其他的图片。按下重复上一步操作快捷键F4键。这时就可以快速把这一个图片也设置成同样大小了。以此类推,全部设置完成。
如何批量调整word中插入的图片大小?
1
打开WORD,在”工具“菜单下选择”选项“命令。
2
在”选项“窗口中,在”编辑”选项卡下,将插入图片的格式选择为“四周型”,为什么要这么操作,因为我们默认插入图片的方式是嵌入式,使用“选择多个对象”命令时无法选择。
3
在“插入”菜单中选择“图片”/“来自文件”
在“插入图片“对话框中选择要插入的图片。
在“绘图”工具栏中的“添加或删除按钮”中选择“选中多个对象”
使用“选中多个对象”,将所有插入的图片全部选中。
双击任意一图片,在弹出的对话框中,将图片设置一固定尺寸,并取消下方的”锁定纵横比“命令。
这个时候你会发现所有的图片都变成了统一尺寸大小了。
那么怎么样将这些图片导出来呢?在”文件“菜单中选择”另存为“命令。
在”另存为“对话框中将保存类型设置为”网页“,最后点击”确定“按钮保存文件。
打开刚刚保存的文件,右击在弹出的菜单选择以”大小“进行排序。
大家可以发现,我们修改的后的图片都是相同的尺寸了。
其实保存的文件中有一个原图和修改尺寸后的图,我以大小进行排序的话可以很快速将他们分离出来。
急求:怎样批量调整word 图片大小?
这个要用到VBA的,打开你的文档后,按Alt+F11,在左边Porject下找到ThisDocument,右键插入模块,贴上下面的
Sub Macro()
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = iShape.Height * 0.25
iShape.Width = iShape.Width * 0.25
Next iShape
End Sub
按F5运行一次就可以了。
转载请注明出处51数据库 » word怎么批量调整图片大小 word文档如何批量修改图片大小