Word里面怎么批量解决图片放大缩少吗

[怎样批量调整word图片大小]我知道通过宏可以批量完成一个word中所有图片大小的修改，在次与大家共享，也希望可以给大家参考。 1、Alt+F8调出宏编辑窗口 2、点创建按钮，创建新宏，setpicsize，内容如下： Sub set...+阅读

Word里面怎么批量解决图片放大缩少吗

可以借助宏来实现。

1.点击视图-宏-输入setpicsize或任意名字-创建。

2.出现的界面输入，下面的代码，意思是把图片尺寸改为5cm和4cm，此参数可改：

Sub setpicsize（) '设置图片大小

Dim n '图片个数

On Error Resume Next '忽略错误

For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片

ActiveDocument.InlineShapes(n).Height = 5 * 28.35 '设置图片高度为 5cm (1cm等于28.35px)

ActiveDocument.InlineShapes(n).Width = 4 * 28.35 '设置图片宽度 4cm

Next n

End Sub

3.运行：点击-视图-宏-运行即可把所有图片设为上述尺寸。

怎样把图片JPEGnbsp文件缩下

缩下什么意思？是压缩？试试这个----JPEGnbsp;Optimizernbsp;V3.06nbsp;nbsp;JPEGnbsp;Optimizer能够在压缩比到达50%时，使优化后的JPEG图像与原图像在观感上基本没有区别。在其主界面窗口中可以同时显示原图像和经优化后的图像，并分别显示文件大小。用鼠标拖动压缩率调节滑块可以调节压缩比，从而在图像质量和压缩比之间找到一个适当的平衡点；JPEGnbsp;Optimizer不仅可以对图像的某个区域进行局部压缩，还可以将常见BMP、TIF、TGA等图像格式转换成JPG格式，压缩比可高达70%以上。如果JPEGnbsp;Optimizer经过注册，它还拥有批处理能力，可以在设定了压缩比率之后，对一批JPEG文件进行压缩，非常方便。nbsp;nbsp;nbsp;nbsp；针对不同的用户，JPEGnbsp;Optimizer提供了4种工作方式以供选择：nbsp;nbsp;nbsp;nbsp;1.普通方式（Normalnbsp;Mode）nbsp;nbsp;nbsp;nbsp；让普通用户以最快速度实现对JPEG图像的优化。

首先打开一幅JPEG图像，然后拖动压缩率标尺，根据屏幕所显示的预览效果确定压缩比后单击“Auto”,JPEGOptimizer就立刻自动开始对JPEG图像进行再压缩，最后按“Save”键保存经优化的JPEG图像即可。nbsp;nbsp;nbsp;nbsp;2.高手方式（Expertnbsp;Mode）nbsp;nbsp;nbsp;nbsp；适合高级用户使用，能够对图像的再压缩进行更多方面的调节、控制。在菜单栏中的“Option”项下选中“Expertnbsp;Mode”和“Shownbsp;Extranbsp;Compression”，然后打开一幅JPEG图像并调节好压缩比，按下“魔法棒”就可以开始对图像进行深度压缩了。在压缩控制方面，高手模式还提供了“轻度/中度/深度压缩”等功能按键以实现对压缩过程的定量调控。nbsp;nbsp;nbsp;nbsp;3.高手方式+向导菜单（Expertnbsp;Modenbsp;+nbsp;Wizardnbsp;Menu）nbsp;nbsp;nbsp;nbsp；这种模式能够对图像的压缩提供比较完善的控制。

选择“Opt-ion”菜单下的Expert模式和Wizardnbsp;Menu（向导菜单）启动本模式，向导菜单主要由两个压缩控制滑块和一个图像区域控制框组成，它们分别是：Extranbsp;Compression：调整有鼠标拖放操作的固定深度压缩的数值；Maginbsp;Compression：调整通过“魔法棒”操作的自动深度压缩的数值；Region：使用控制滑块来对所选区域的图像压缩进行控制。nbsp;nbsp;nbsp;nbsp；其中，选“invert”键将使所选图像区域产生翻转，而“Selectnbsp;all”将把整幅图像作为一个区域来处理。nbsp;nbsp;nbsp;nbsp;4.批处理方式（Batchnbsp;Mode）nbsp;nbsp;nbsp;nbsp；这个非常实用的功能只有在JPEGnbsp;Optimizer注册后才能使用。先在菜单中的“File-Open”中选中所有需要进行优化的JPEG图像，再到“File”项中选择Batch启动批量处理模式，随后出现的批量模式设置对话框中各项的具体含义是：⑴Readnbsp;Qualitynbsp;fromnbsp;Inputnbsp;JPEGnbsp;nbsp;nbsp;nbsp；压缩JPEG图像，并使JPEGnbsp;Optimizer能够连续对所选中的批量JPEG图像进行压缩；⑵Usenbsp;Maginbsp;Compressionnbsp;nbsp;nbsp;nbsp；使JPEGnbsp;Optimizer自动对JPEG图像中非主体部份（如画面的背景）进行深度压缩。

默认值为50%；⑶Defaultnbsp;Compressionnbsp;Qualitynbsp;nbsp;nbsp;nbsp；设置默认的图像压缩质量，默认值为70；⑷Ignorenbsp;Errors忽略批量压缩时可能产生的错误。若此项未选，压缩图像时产生某个错误将会导致程序显示出错对话框并挂起。nbsp;nbsp;nbsp;nbsp；简便的操作，而且还有使用向导的指示，一定会让你觉得压缩图像其实并没有想象中的那么艰难。

怎么批量的修改图片的长宽高

word批量修改图片大小方法：

固定长宽方法：

1、打开word，工具-宏-宏（或者直接按Alt+F8）进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行！

2、宏名起好了，单击“创建”进入Visual Basic 编辑器，输入如下代码并保存

Sub setpicsize（) '设置图片大小

Dim n '图片个数

On Error Resume Next '忽略错误

Forn = 1 ToActiveDocument.InlineShapes.Count 'InlineShapes类型图片

ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px

Nextn

Forn = 1 ToActiveDocument.Shapes.Count 'Shapes类型图片

ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px

ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px

Nextn

End Sub

3、返回word，工具-宏-宏（或者直接按Alt+F8），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！（图片多时，可能会花一些时间）

按比例缩放方法

这部分要说的是把word中的所有图片按比例缩放！

具体操作同上，只是代码部分稍做修改，代码如下：

Sub setpicsize（) '设置图片大小

Dim n '图片个数

Dimpicwidth

Dimpicheight

On Error Resume Next '忽略错误

For n = 1 ToActiveDocument.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倍

Nextn

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倍

Nextn

End Sub

若还想使所有图片居中对齐，可在循环中加入下面的语句：

ActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignment= wdAlignParagraphCenter

'左对齐：wdAlignParagraphLeft

注意：这里的Shapes(InlineShapes)不仅仅是指图片，也包含其它的，自选图形、任意多边形、OLE 对象、ActiveX 控件、图片等。

好啦！word批量修改图片大小的方法就是这样的了，这两种方法各有千秋，大家可以根据情况自行选择哦！

猜你还喜欢：

word未保存如何恢复？word文档未保存恢复方法汇总 word文档如何画线条？word快速画出5种线条小技巧

使用宏批量修改PPT2010公式颜色

Sub 批量更改PPT中公式的背景色（）

Dim aSlide As Slide, aShape As Shape

On Error Resume Next '忽略错误

For Each aSlide In ActivePresentation.Slides '遍历幻灯片

For Each aShape In aSlide.Shapes '遍历图层对象

If aShape.Type = 7 Then '公式

With aShape

.Fill.ForeColor.RGB = RGB(255, 255, 0)

.Fill.Visible = msoTrue

.Fill.Solid

.Fill.BackColor.RGB = vbYellow

.Fill.Transparency = 0#

End With

End If

End Sub