发布网友 发布时间:2024-02-28 01:17
共5个回答
热心网友 时间:2024-07-24 03:23
Word如何批量调整图片大小?
热心网友 时间:2024-07-24 03:26
进入工具菜单—宏—安全性—低,工具—宏—录制宏—键盘—定义快捷键—关闭。开始录制宏步骤:热心网友 时间:2024-07-24 03:26
可以把图片全部贴到excel里面,然后用图像的压缩功能,不要选“只缩小该图片”,然后选中所有的图像,一起变化尺寸,然后再贴回word就好热心网友 时间:2024-07-24 03:28
Word中批量压缩图片方法:可以让WORD文档大幅度减肥,而不影响文档原结构,让您轻轻松松把大字节原照变成所需大小,让您的文件瘦身不减美,成为电子信息冲浪仔。方法:热心网友 时间:2024-07-24 03:20
打开所要调整图片大小的word文档。
点击工具—宏—visual basic编辑器。点击试图—代码窗口,打开代码窗口。
将代码“Sub setpicsize() '设置图片大小Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 100 '设置图片高度为 100pxActiveDocument.InlineShapes(n).Width = 100 '设置图片宽度 100pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 100 '设置图片高度为 100pxActiveDocument.Shapes(n).Width = 100 '设置图片宽度 100pxNext nEnd Sub”
输入窗口,修改其中“Height = 100”和“Width = 100”即可按照要求更改图片大小。
点击运行—运行子程序,或者按F5运行即可。图片大小就修改完毕。
如果说图片是按比例修改,则把第三步的程序改为:Sub setpicsize() '设置图片大小Dim n '图片个数Dim picwidthDim picheightOn Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片picheight = ActiveDocument.InlineShapes(n).Heightpicwidth = ActiveDocument.InlineShapes(n).WidthActiveDocument.InlineShapes(n).Height = picheight * 1.1 '设置高度为1.1倍ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍Next nFor n = 1 T
o ActiveDocument.Shapes.Count 'Shapes类型图片picheight = ActiveDocument.Shapes(n).Heightpicwidth = ActiveDocument.Shapes(n).WidthActiveDocument.Shapes(n).Height = picheight * 1.1 '设置高度为1.1倍ActiveDocument.Shapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍Next nEnd Sub