word中图片如何统一大小

操作步骤如下：

1.打开要统一图片大小的Word文档，点击“工具”-“宏”-“Visual Biscal 编辑器。

2）插入normal工程“模块”。

3）在“模块”中粘贴下面的代码。

Sub batchResizeShape()

Dim doc As Document

Dim i As Integer

Set doc = ActiveDocument

For i = 1 To doc.InlineShapes.Count

'doc.InlineShapes

'doc.Shapes(i).ScaleHeight 0.5, msoFalse, msoScaleFromMiddle 'doc.Shapes(i).ScaleWidth 0.5, msoFalse, msoScaleFromMiddle doc.InlineShapes(i).Height = 198.15

doc.InlineShapes(i).Width = 264.45

Next i

End Sub

4）保存，返回你要统一图片大小的Word文档。运行“工具”-“宏”-"宏命令"。

看一下结果，是不是你想要的统一图片大小。

我用的两张图一个大一个小，统一后400*300还是很大，放在两个页面上，上面是25%的缩略图，至此实现了统一大小的目标，如果你想要其它的大小，只需按代码里的说明更改一下长宽数值即可。

word中批量修改图片大小

这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽！ 方法一： 这部分要说的是把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)，再次进入宏的界面，选择刚才编辑好的宏，并单击"运行"按钮，就可以了!(图片多时，可能会花一些时间)

方法二： 1、在word中按alt+f11组合键，进入VBA模式 2、在左边的工程资源管理器中找到你的word文档，在其上右键/添加/模块 3、把下面代码复制，粘贴进去。 4、更改数值，改一下宽度和高度数值(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 iShape End Sub word批量修改图片大小--按比例缩放篇 这部分要说的是把word中的所有图片按比例缩放! 具体操作同上，只是代码部分稍做修改，代码如下： Sub setpicsize() '设置图片大小 Dim n '图片个数 Dim picwidth

Word2013文档中如何批量调整图片大小

Word2013文档中如何批量调整图片大小 在我们用Word2013 编辑器文档的时候，经常会遇到打印一些图片的情况，但是手工插入后图片后，打印出来有些乱，很不美观，特别是有多个图片的情况时。以下是学习啦小编为您带来的关于Word2013批量调整图片大小，希望对您有所帮助。 Word2013批量调整图片大小 1、新建一个Word文档，然后点击菜单栏上的“布局”菜单 2、接下来点击工具栏上的箭头所指的位置，打开Word页面设置窗口 3、在页面设置窗口中，我们把页边距设置为0.5厘米，然后调整纸张方向为横向 4、接着点击菜单栏上的“插入”菜单项，在打开的插入工具栏上点击“图片”按钮，在打开的窗口选择要插入的图片文件，把需要打印的图片全部插入到文档中 5、然后点击菜单栏上的“视图”菜单项，接着点击工具栏上的“宏”按钮 6、在打开的宏设置窗口中，为要编辑的宏设置一个名称，如“调整照片大小”，然后点击右侧的“创建”按钮 7、在打开的代码输入框中输入以下代码： Dim i As Integer For i = 1 To ActiveDocument.InlineShapes.Count With ActiveDocument.InlineShapes(i) .Height = 238 * 0.7 .Width = 315 * 0.8 .Borders(wdBorderTop).LineStyle = wdLineStyleSingle .Borders(wdBorderTop).LineWidth = wdLineWidth050pt .Borders(wdBorderTop).Color = wdColorAutomatic End With Next i 其中Height与Width可以根据实际情况重新调整，一般默认就可以了 8、关闭刚刚的代码输入框，回到Word文档后，点击宏下拉菜单，然后选中并点击“查看宏”菜单项 9、在打开的宏窗口中在左侧窗口中选中刚刚创建的宏，点击“运行”按钮 10、这时所有的图片就自动排列到一个A4纸上了，使用打印功能就可以快速方便的打印出一副整齐美观的照片了

批量调整图片大小两种方法

批量调整图片大小两种方法 1、用acdsee11打开照片，转换到“管理”视图模式；界面如下图所示（其它版本的acdsee）与此类似。 2、按下键盘的ctrl不松手，逐个单击要修改大小的照片；或单击第一张照片，按下shift键再单击最后一张照片，选择它们之间的照片。 3、单击工具栏的调整大小按钮或在选中的照片上右击在弹出的快捷菜单上单击“批处理”→“调整大小” 在弹出的“调整大小”对话框中 ４、选中“以像素计大小”； ５、宽度填入1024，高度填入768； 6、注意点击“选项”按钮，进行深入设置

在弹出的选项对话框中 7、根据选择“替换”或“放入原文件夹”或“放入以下文件夹”（选择此条，可以点击右侧的“浏览”按钮，浏览或新建调整大小后保存的位置，） 8、点击“确定”按钮返回“调整大小”对话框 9、点击“开始调整大小”按钮

提示所有照片调整完大小后，在windows中浏览到在第⑦设定的位置，就可以找到调整大小后的照片。 用photoshop批量调整图片大小的方法 虽然调整图片大小的软件很多，依笔者的经验来看，最好还是专业软件——Photoshop（简称PS）。利用ps中的动作可以批量处理n张图片的大小，速度很快，质量也好，很方便的，不仿试试。 一、打开ps。 二、选择“窗口”→“动作”（前面打上钩）。 三、单击动作窗口中最下面一行倒数第二个“创建新动作”按钮，起一个名称以方便以后调用，如“网页图片800”，单击“好”，开始录制动作。 四、“文件”→“打开”，选择你要修改的图片中的一张。 五、“图像”→“图像大小”，调整图片的宽度和高度到你想要的大小，如800×600像素。 六、保存图片到你想要放的文件夹中。 七、关闭该图片。 八、单击动作窗口中最下面一行的第一个按钮，停止录制动作。至此，一个完整的调整图片大小的动作录制完成，只要不重装系统都可以长期调用。 九、“文件”→“自动”→“批处理”，在打开的的窗口中，“动作”栏选择为刚才录制的动作，“源”选为“文件夹”，单击“选取”到你要调整图片的文件夹。以同样的方法选好目的文件夹（存放调整后的图片）。对话框中几个勾选项目除了“包含所有子文件夹外”其它的都打勾，文件命名框内的内容无须改动，在“错误”栏选择“将错误记录到文件”，单击“存贮为”将错误文件存放

用宏批量调整word中图片版式大小方向

Sub 图片方向()..................................................... Sub 图片对齐() Application.ScreenUpdating = False '关闭屏幕更新 Dim n On Error Resume Next ActiveDocument.Shapes(n).Select orizontalPosition = _ wdRelativeHorizontalPositionMargin wdRelativeVerticalPositionMargin Next Application.ScreenUpdating = True '恢复屏幕更新 End Sub Sub 图片大小() On Error Resume Next Dim mywidth Dim myheight Application.ScreenUpdating = False '关闭屏幕更新 mywidth = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,宽度根据输入的高度数值自动调整；", Title:="请输入图片宽度", Default:="0")) * 28.35 myheight = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,高度根据输入的宽度数值自动调整；", Title:="请输入图片高度", Default:="0")) * 28.35 '------------------------------------------------------------------ '调整嵌入式图形 Dim pic As InlineShape For Each pic In ActiveDocument.InlineShapes If mywidth = "0" Then

PS中如何批量修改图片大小

PS中如何批量修改图片大小 首先要把你所要处理的图片全部放到同一个文件夹下。 第一步：在Photoshop中打开一张要更改大小的图片，并在菜单窗口中打开‘动作’ 面板（Alt+F9) 。在面板的最下面有一排功能键，点击右边起第二个按钮‘创建新动作’ 会弹出一个对话框，里面显示新建动作的名称，如“动作1” 。再点击“记录”，完毕后我们会看到在动作面板的下面出现一个红色的按钮，表示已经要开始录下我们接下来操作的每一个步骤了。 第二步：进入菜单上“图象 / 图象大小”里面更改你需要的图片大小，点击完成，然后将图片关闭，当问你是否要保存对原文件的更改是，选择“Yes"。然后点击动作面板下面左起第一个按钮将录制停止。录制完毕。 第三步：进入菜单上“文件/自动/批处理”里面，选择动作名称、要处理的文件路径以及‘目的’ 选择“无”。这里要注意：选择“无”就是将处理好的文件直接代替原文件，如果要保留原文件需要再另备份一份或是选择“存储并关闭”和另外选择路径来存储也可以。以上操作完成后请击“好”。软件便会自动对文件进行处理。只要稍等片刻即可完成。 “怎样才能把批处理后的图像保存到另一个文件夹”：步骤和以上说的大致一样，在第二步操作到“然后将图片关闭”时不要直接关闭文件，而是在主菜单“文件”下选择“存储为”将图片存储到你想要存的文件夹里，存完后关闭文件，并停止动作对话框的录制。接着

是第三步：进入菜单上‘文件/自动/批处理’里面，选择动作名称、要处理的文件路径以及‘目的’ ，在‘目的’ 里面选第三项‘文件夹’，并在下面‘选择’里选取图片处理后存储的路径（注意：此路径要和刚才录制过程中存储的路径是一样的）以上操作完成后请击‘好’就可以了。其实还有个苯办法，上面也提过就是将原文件另外备份一份，就可将批处理好的图片任意拷贝到你想要放置的地方了。 用photoshop批量修改图片尺寸 用Photoshop的动作命令和批处理命令就可轻松搞定它们。 一、首先我们得制作自己需要的动作命令 第一步，先打开Photoshop，选中“窗口→动作”命令，打开动作命令窗口。此时，动作命令栏里只有默认命令序列和一些默认动作。 第二步，执行“文件→打开”动作，任意打开一张图片。单击动作命令栏“创建新动作”快捷命令图

word里如何批量处理图片的大小-不知道你就out啦

这两天在整文档，提交过来的文档里面有几百张图片，规格都不一样，堆在文档里面很难看。为美化文档，我决定将图片规范化，都设置成425x320像素大小。手工修改每张图片很费时间也费鼠标，借助word的宏功能可以很好完成这一任务。 打开word，按下Alt+F8，出现宏界面，为新建的宏取名为AdjustPicWidthAndHeight 点击编辑按钮，输入下面红色字体标出的内容 Sub AdjustPicWidthAndHeight() ' ' AdvertisePublishAs 宏 ' 将广告发布导出为 PDF 和 XPS 'Sub setpicsize() '设置图片大小 Dim n '图片个数 On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse '不锁定图片的纵横比

ActiveDocument.InlineShapes(n).Height = 320 '设置图片高度为 320px ActiveDocument.InlineShapes(n).Width = 425 '设置图片宽度 425px Next n For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse '不锁定图片的纵横比 ActiveDocument.Shapes(n).Height = 320 '设置图片高度为 320px ActiveDocument.Shapes(n).Width = 425 '设置图片宽度 425px Next n End Sub 返回word，工具－宏－宏（或者直接按 Alt+F8），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！（图片多时，可能会花一些时间） Sub AdjustPicWidthAndHeight() ' 'Sub FormatPics() Dim iSha As InlineShape For Each iSha In ActiveDocument.InlineShapes If iSha.Type = wdInlineShapePicture Then iSha.LockAspectRatio = msoFalse '不锁定纵横比 iSha.Width = CentimetersToPoints(6.46) '宽5CM iSha.Height = CentimetersToPoints(6.28) '高5CM End If Next End Sub

如何批量处理图片的大小

喜爱摄影的朋友可能都有这样的体会，相机里面存了大量的图片，一般都是2048×1536或者更大像素的照片，每张都有1M以上，如果设置的清晰度高，则照片就更大，这样的图片是无法上传到博客中的（博客要求每张图片的大小不能超过300K，宽度超过550像素时也无法全部显示）。这就需要对每张图片进行处理，可是一次拍摄了几十张上百张照片，一张一张处理岂不是太浪费时间。下面就教大家一招，让你轻轻松松批量处理图片，嘻嘻！ 第一步：建立一个文件夹，将需要处理的照片放入这个文件夹中（注意：图片要纵横一致）。不如我上篇文章中拍摄的满洲里照片，将欲发表的照片放入新建的文件夹“边城满洲里” 文件夹中，然后再建一个文件夹，起名“边城满洲里发表”，待用。 第二步：打开PHOTOSHOP处理软件，这个软件现在网上很多，大家可以搜索下载。打开PS处理软件，然后打开欲发表文件夹中的任意一张照片。

第三步：点击PS工具栏的“窗口”，在下拉菜单中找到“动作”面板，将其打开，或者按Alt+F9也能将其打开，一般打开PS软件的时候 动作面板已经打开了

来源：(https://www.wendangku.net/doc/9d3491504.html,/s/blog_503ff9de0100cwcl.html) - 如何批量处理图片大小——学习photoshop动作（转贴）_醉夕阳_新浪博客 第四步：点击“动作面板”上的“创建新动作按钮”，出现新动作的录制面板，给你要录制的动作起一个名字。（如图片调整）其它不要动哦。然后点击“记录”，如下图：

出现了录制按钮，如下图

第五步：前面的这些都是为下面的制作打下一个基础。下面你的每一个操作步骤都会被录制下来，一定要按照我说的去做哦。现在开始调整图像的大小：选图像－图像大小。如下图：将图片设置成需要的大小。在新浪博客中横幅图片一般设置成550像素以内为好，太宽则显示不全。设置好后点击对话框中的“好”按钮。

三步完成批量调整图片尺寸

三步完成批量调整图片尺寸 直线网https://www.wendangku.net/doc/9d3491504.html, 用数码相机拍摄的照片，通过数据线传到电脑上后尺寸比较大。为了方便浏览，我们通常都在Photoshop等专业图像处理软件中一张张来调整图片的大小。其实还有更多更方便简捷的方法来完成。 一、在ACDSee中调整 ACDSee是目前最流行的数字图像处理软件，批量调整图片尺寸对它来说简直是“小菜一碟”。 1．打开ACDSee 7.0（至少需5.0版以上），从左上角的“文件夹”中，打开数码照片所在的文件夹，在界面右侧可以适时浏览所有图片的缩略图。你可以将照片全部选中，也可按住“Ctrl”键，用鼠标选中需要更改尺寸的图片。 2．选择“工具→调整图像大小”命令，出现“调整图像大小”对话框（图1），在三种调整方式中选择一种方式，如选择“像素值”请将宽度或高度设置为你想要的尺寸。其他项保持默认就可以了。 3．单击“开始调整大小”按钮，ACDSee会自动进行调整，完成后即可看到实际效果。 二、在IrfanView中调整

尽管ACDSee在批量更改图片尺寸方面表现出色，但并不是所有人都喜欢使用这个“大块头”。我再给大家推荐一款小巧方便的图像处理软件“IrfanView”，它的大小只有4MB左右，体积仅是ACDSee 7.0的五分之一。 1．启动IrfanView后，选择“文件→批量转换/重命名”命令，出现“批量操作”对话框，从“查找范围”中打开存放数码照片的文件夹。 2．将需要更改尺寸的照片添加到左侧的文件列表框中（图2），同时选择好“输出目录”。勾选“使用高级选项”，单击“设置高级选项”按钮，在设置新的大小中，将宽度和高度设置为你想要的尺寸，并勾选下面的“保持外观比例”，然后单击“确定”。 3．回到“批量操作”窗口，单击“开始”按钮，IrfanView会自动转换图像，是不是很方便？直线网https://www.wendangku.net/doc/9d3491504.html,

用Photoshop批量处理图片

用Photoshop批量处理图片 我们经常需要对大量不同大小、不同格式、不同编号的图片进行处理，比如制作电子相册，要求照片的大小一致，这样在编辑时就能事半功倍。几百张照片如果一张一张地调整大小，转换格式，再进行统一编号，其工作量之大可想而知。Photoshop提供了一种图片自动处理功能，能一步完成以上的所有问题。 一、按要求制作自己的动作命令 第一步，首先看看Photoshop右下角的动作窗口是否已经打开（图1） 如果没有就点击“窗口/动作”，打开动作窗口。此时，动作命令栏里只有一些默认动作。 第二步，点击“文件/打开”，任意打开一张图片。单击动作命令栏下方“创建新动作”图标，出现如图1所示的命令对话框，在“名称”栏中输入“图片转换”，然后单击[记录]按钮。图2

第三步，开始创建需要的动作 计算机会自动记录你的每一个动作，为了避免出错，事先用一张图片演示一下，把要做的每一步准确无误地用记事本记录下来，然后按记录的步骤创建新动作。演示必须在第二步以前做，如果这时再来演示，电脑就会把演示当作新建的动作记录下来了。 1. 调整图片大小：点击图像/图像大小菜单项，在弹出的对话框中调整图像大小，将宽设置为需要的像素，电子相册一般要求720像素，注意勾选约束长宽比，以免图片比例失调而变形。图3 2. 转换图片格式： 点击“文件/存储为”，在“格式”下拉菜单中选择JPEG格式，单击[保存]，“品质”选择“高”，单击[好]。 第四步，停止记录 按图1标示单击动作窗口下方的“停止记录”按钮停止记录。这时我们需要的动作命令制作完毕，在动作窗口可以看到刚才记录的操作步骤是图像大小和存储。

批量设置word 里图片的大小及版式的技巧

批量设置word 里图片的大小及版式的技巧1.批量设置固定大小 工具-宏-新建 Sub setpicsize() '设置图片大小 Dim n '图片个数 On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 70 '设置图片高度为70px ActiveDocument.Shapes(n).Width = 80 '设置图片宽度80px Next n End Sub 运行即可 2.批量按比率缩小或放大 新建宏 Sub setpicsize() '设置图片大小 Dim n '图片个数 Dim picwidth Dim picheight On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片picheight = ActiveDocument.Shapes(n).Height picwidth = ActiveDocument.Shapes(n).Width ActiveDocument.Shapes(n).Height = picheight * 0.5 '设置高度为0.5倍ActiveDocument.Shapes(n).Width = picwidth * 0.5 '设置宽度为0.5倍Next n End Sub 3批量将图片转成嵌入型 新建宏 Sub 图片转嵌入型() Dim apic As Shape Application.ScreenUpdating = False For Each apic In ActiveDocument.Shapes apic.ConvertToInlineShape '转换为嵌入型 Next Application.ScreenUpdating = True Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend With Selection.ParagraphFormat .LeftIndent = MillimetersToPoints(0) .RightIndent = MillimetersToPoints(0)

word批量修改图片大小

word批量修改图片大小 这两天在整文档，提交过来的文档里面有几百张图片，规格都不一样，堆在文档里面很难看。为美化文档，我决定将图片规范化，都设置成425x320像素大小。手工修改每张图片很费时间也费鼠标，借助word的宏功能可以很好完成这一任务。 打开word，按下Alt+F8，出现宏界面，为新建的宏取名为AdjustPicWidthAndHeight 点击编辑按钮，输入下面红色字体标出的内容 Sub AdjustPicWidthAndHeight() ' ' AdvertisePublishAs 宏 ' 将广告发布导出为 PDF 和 XPS 'Sub setpicsize() '设置图片大小 Dim n '图片个数 On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片

ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse '不锁定图片的纵横比 ActiveDocument.InlineShapes(n).Height = 320 '设置图片高度为 320px ActiveDocument.InlineShapes(n).Width = 425 '设置图片宽度 425px Next n For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片 ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse '不锁定图片的纵横比 ActiveDocument.Shapes(n).Height = 320 '设置图片高度为 320px ActiveDocument.Shapes(n).Width = 425 '设置图片宽度 425px Next n End Sub word批量修改图片大小——固定长宽篇 这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽！ 1、打开word，工具－宏－宏（或者直接按Alt+F8）进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行！

怎样批量调整word 图片大小

怎样批量调整word 图片大小 悬赏分：0 - 解决时间：2009-6-4 20:57 怎样才能把word中所有图片的大小调整为原来的50%？（是空间大小？ 提问者：cp3win - 二级 最佳答案 我知道通过宏可以批量完成一个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 11计算方法：图片成品尺寸*28.34（宽和高都是28.34）粮科所图片大小宏 宏名：setpicsize Sub setpicsize()

wps怎么批量更改图片大小

wps怎么批量更改图片大小 首先为WPS个人版安装VBA，然后按下面的步骤操作：所有图片修改成固定的并且相同的长和宽！ 1、打开WPS，直接按Alt+F8进入宏的界面，输入一个宏 名，宏名自己起，能记住就行！ 2、宏名起好了，单击“创建”进入Visual Basic 编辑器， 输入如下代码并保存 Sub setpicsize() '设置图片大小 Dim n '图片个数 O n Error Resume Next '忽略错误 For n = 1 To Active Document.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类型图片 Ac tiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px Next n End Sub 3、返回WPS，直接按Alt+F8），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！

wps 批量修改照片大小，要说的细点 word批量修改图片大小——固定长宽篇这部分要说的是把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 Sub3、返回word，工具－宏－宏（或者直接按Alt+F8），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！（图片多时，可能会花一些时间）word批量修改图片大小——按比例缩放篇这部分要说的是把word中的所有图片按比例缩放！ 具体操作同上，只是代码部分稍做修改，代码如下：

用photoshop批量调整图片大小的方法

用photoshop批量调整图片大小的方法 虽然调整图片大小的软件很多，依笔者的经验来看，最好还是专业软件——Photoshop（简称PS）。利用ps中的动作可以批量处理n张图片的大小，速度很快，质量也好，很方便的，不仿试试。 一、打开ps。 二、选择“窗口”→“动作”（前面打上钩）。 三、单击动作窗口中最下面一行倒数第二个“创建新动作”按钮，起一个名称以方便以后调用，如“网页图片800”，单击“好”，开始录制动作。 四、“文件”→“打开”，选择你要修改的图片中的一张。 五、“图像”→“图像大小”，调整图片的宽度和高度到你想要的大小，如800×600像素。 六、保存图片到你想要放的文件夹中。 七、关闭该图片。 八、单击动作窗口中最下面一行的第一个按钮，停止录制动作。至此，一个完整的调整图片大小的动作录制完成，只要不重装系统都可以长期调用。 九、“文件”→“自动”→“批处理”，在打开的的窗口中，“动作”栏选择为刚才录制的动作，“源”选为“文件夹”，单击“选取”到你要调整图片的文件夹。以同样的方法选好目的文件夹（存放调整后的图片）。对话框中几个勾选项目除了“包含所有子文件夹外”其它的都打勾，文件命名框内的内容无须改动，在“错误”栏选择“将错误记录到文件”，单击“存贮为”将错误文件存放到适当位置。 十、单击“好”，你就可以歇着啦，ps会帮你做完的。 以后再调整同样大小的图片，选择此动作后，只须重新选取源文件夹和目的文件夹，单击好→OK。 如果你只调整单张图片，按第四、五、六步骤做即可。 如果你做的是更适合网页贴图的图片，第五个步骤改为：文件→存贮为Veb 所用格式→在打开的对话框里将图片格式设为“JPEG”，质量设为“中”，图像大小设为你想要的大小→存贮图片到你想要放的文件夹即可。如果调整的图片名称为中文，存贮过程中会跳出对话框，按住回车不放只到处理完。此法做成的图片体积最小，不仿试试。 这要用到“动作”和“批处理”。 首先要把你所要处理的图片全部放到同一个文件夹下。 第一步：在Photoshop中打开一张要更改大小的图片，并在菜单窗口中打开…动作? 面板（Alt+F9) 。在面板的最下面有一排功能键，点击右边起第二个按钮…创建新动作? 会弹出一个对话框，里面显示新建动作的名称，如“动作1” 。再点击”记录“，完毕后我们会看到在动作面板的下面出现一个红色的按钮，表示已经要开始录下我们接下来操作的每一个步骤了。 第二步：进入菜单上“图象/ 图象大小”里面更改你需要的图片大小，点击完成，然后将图片关闭，当问你是否要保存对原文件的更改是，选择“Yes"。然后点击动作面板下面左起第一个按钮将录制停止。录制完毕。

用宏批量调整 中图片版式 大小 方向

Sub 图片对齐() = False '关闭屏幕更新 Dim n On Error Resume Next (n).Select orizontalPosition = _ wdRelativeHorizontalPositionMargin wdRelativeVerticalPositionMargin Next = True '恢复屏幕更新 End Sub Sub 图片大小() On Error Resume Next Dim mywidth Dim myheight = False '关闭屏幕更新 mywidth = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,宽度根据输入的高度数值自动调整；", Title:="请输入图片宽度", Default:="0")) * myheight = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,高度根据输入的宽度数值自动调整；", Title:="请输入图片高度", Default:="0")) * '------------------------------------------------------------------ '调整嵌入式图形 Dim pic As InlineShape For Each pic In If mywidth = "0" Then

= myheight = ElseIf myheight = "0" Then = mywidth = Else = mywidth = myheight End If Next '调整浮动式图形 Dim tu As Shape For Each tu In If mywidth = "0" Then = myheight ElseIf myheight = "0" Then = mywidth Else = msoFalse = mywidth = myheight End If Next = True '恢复屏幕更新 End Sub Sub 浮于文字上方() Dim oShape As Variant, tu As Shape, i = False '关闭屏幕更新 On Error Resume Next '调整嵌入图形为浮于文字上方，并旋转90度For Each oShape In Set oShape = (i).Select With oShape

word文档批量修改图片的方法

[手把手]word批量导入、修改图片大小和压缩图片 工作中，我们不时会需要将大量图片插入word，并对其设置统一的尺寸大小。下面请跟随我，学习批量导入、修改图片尺寸和压缩图片的方法，让你告别重复工作。 工具/原料

Microsoft Word 2007 一、批量导入图片 1. 1 将所有需要导入的图片放入同一文件夹，修改文件名，使其排列顺序符合我们要求。 2. 2 打开word，依次点击：插入→图片

3. 3 在弹出的窗口，“查找范围”框里找到需要插入图片所在文件夹， 方法一：选中第1张图片，按住键盘Shift键，再选中最后一张图片。 方法二：选中任意一张照片，同时按键盘“Ctrl”键和字母“A”键，全选点击“插入” 4. 4 效果如图

END 批量修改图片尺寸 1. 1 接上面的例子。 方法一：在word软件界面中依次点击：开发工具→宏 方法二：同时按键盘“Alt”键和“F8”键（后面简称Alt+F8）弹出宏创建窗口

2. 2 在宏名栏里任意输入一个宏的名字，本例中我们使用“setpicsize”点击创建

3. 3 弹出“Microsoft Visual Basic”窗口，复制下面的代码到代码窗口里替换掉原有内容： 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 '其中图片本例中图片尺寸为5cm和4cm 4. 4 点击“Microsoft Visual Basic”窗口工具栏里的“运行”按钮（类似播放器里的播放按钮）或者按键盘“F5”键

如何快速批量修改图片尺寸的PS技巧

PS知识 用惯了Lightroom的朋友肯定知道输出图片的时候可以批量处理图片尺寸，其实Photoshop中也有同样的功能，我们一起来看下吧! 开启了Photoshop之后(示范版本为CC)，点击左上角文件→脚本→图像处理器即可。 之后你会看到下图的面板，一目了然。 选择处理的照片所属文件夹。 选择储存位置，选在同一个位置也不用怕，因为PS会替你自动开新文件夹，不会覆写你的原文件。 选择图片格式，包括JPEG、PSD或TIFF，也可多选，然后每种格式会自动开一个同名文件夹，例如JPEG档会全部放在“JPEG”文件夹内，简单易用。而图片存储质量等选项就和单一保存一张照片时一样，只不过这次变成了批处理。 批量改变照片大小的软件与方法实在非常多，但是既然能用最常用的PS去处理，估计你也不会想着再找别的软件了吧 一、路径选择工具的优化(CC+) 本条是针对PSCC及以上版本的技巧【在PSCC发布之初本是没有这个功能的，后续的更新中才加上】，第一次使用CC 时相信很多人在使用路径选择工具时都有一些不适感——尼玛怎么什么都能选。 事情是酱紫的，在CC中，Adobe将路径工具的级别变为全局(与AI类似)，双击可将目标图层锁定，在未锁定的情况下路径选择不受图层限制，通俗点说就是，无论你有多少个图层，是否上锁，只要存在就可以被选中，但是选中了却未必可以操作(比如选中的路径中包含上锁图层)，这与我们以往的操作习惯有很大出入，Adobe也发现了这个问题，所以在后续版本中

增加了这个切换功能。 如上图，这回应该比较好理解了吧~在第一次框选时可以选中任意路径图层(包括上了锁的)，重新调整过左上角的选择现有图层/所有图层后，则只能选择当前图层，有点类似移动工具的自动选择。 通过这一设置，我们可以控制路径选择的范围，需要选择某一路径而不想被其他图层打扰时使用“现用图层”，当需要批量操作时选用“所有图层”，随心控制，就是这么炫酷~ 关于这个技巧的应用，后文还有说明。 二、创建副本 快捷键：Ctrl+J 拓展快捷键：Ctrl+Shift+J，【C】+J相信大家都已经知道，在PS中它的标准称谓是“通过拷贝的(形状)图层”，用以从一个图层中对某一区域(选区、形状)创建副本图层，说着挺绕的，所以看图吧： 那么它的拓展呢？看下面： 依然很好理解，相当于在原功能基础上增加了剪切；那么问题来了!我们能用它来作甚？ 这几天有小伙伴来问了这个问题，如何将统一图层中的多个形状快速成多个图层？我给他录了上述一段GIF。 1、最好选用路径选择工具中的【选择所有图层(CC+)】 2、选中图层，切换至路径选择工具 3、点选所需形状/路径，【C】+【S】+J 4、重复步骤3，直到拆分结束 很简单不是嘛，原理也很好理解，【恕我能力有限，在不使用插件的情况下这是我能找到的最快捷的拆分方式，各位看官若有更效率的方法欢迎留言告知】，当然这一技并不仅仅局限于拆分，更多的用法等待着你去发现。

批量调整WORD图片大小教程

批量调整WORD图片大小教程 今天编辑一份WORD文档，里面有很多图片，需要将里面的图片调整为固定大小，一般操作方法是右键点击图片，然后再点击大小按钮 弹出大小菜单，修改高度和宽度数值即可。

但是文档里面图片太多，这样一张一张的修改，会让人崩溃。 下面介绍批量调整图片大小的方法。 打开WORD文档后，按Alt+F8进入宏的界面，如下图所示， 输入一个宏的名字，这里宏名为调整图片大小，单击“创建”进入宏编辑器，

进行宏编辑界面以后，将里面的代码全部删掉，然后复制如下代码并保存 Sub 调整图片大小() '调整图片大小 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 宏保存以后，将宏编辑界面关闭。返回到WORD文档，再次按Alt+F8进入宏的界面，如下图所示 这次点击选中调整图片大小的宏，然后点击运行，就开始自动调整图片大小了。如果文档里面图片较多，执行的时间会长一些。另外宏代码里面的高度和宽度数值可以自己按需要进行修改。

如何批量修改word图片大小

如何批量修改word图片大小 这两天在整文档，提交过来的文档里面有几百张图片，规格都不一样，堆在文档里面很难看。为美化文档，我决定将图片规范化，都设置成425x320像素大小。手工修改每张图片很费时间也费鼠标，借助word的宏功能可以很好完成这一任务。 打开word，按下Alt+F8，出现宏界面，为新建的宏取名为AdjustPicWidthAndHeight 点击编辑按钮，输入下面红色字体标出的内容 Sub AdjustPicWidthAndHeight() ' ' AdvertisePublishAs 宏 ' 将广告发布导出为 PDF 和 XPS 'Sub setpicsize() '设置图片大小 Dim n '图片个数 On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片

ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse '不锁定图片的纵横比 ActiveDocument.InlineShapes(n).Height = 320 '设置图片高度为 320px ActiveDocument.InlineShapes(n).Width = 425 '设置图片宽度 425px Next n For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片 ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse '不锁定图片的纵横比 ActiveDocument.Shapes(n).Height = 320 '设置图片高度为 320px ActiveDocument.Shapes(n).Width = 425 '设置图片宽度 425px Next n End Sub word批量修改图片大小——固定长宽篇 这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽！ 1、打开word，工具－宏－宏（或者直接按Alt+F8）进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行！