Word宏：Word中的图片批量统一大小及同比例缩放(图)

Word宏：Word中的图片批量统一大小

及同比例缩放（图）

有些时候，我们用Word来做一些图文混排的文档，需要正规的样式，例如图片大小一致。下面的方法就是告诉我们如何来实现很多的图片统一大小。

实现代码：

Sub setpicsize() '设置图片大小

Dim n '图片个数

On Error Resume Next'忽略错误

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

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

Next n

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

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

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

Next n

End Sub

使用方法，把代码复制到Visual Biscal编辑器中，再回到Word界面，运行“宏”

命令。

操作步骤如下：

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

编辑器。

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

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

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

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

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

按比例缩放的方法和上面的是一样的，只是代码变化一下，过程就不熬述。VBA 代码如下：

Sub setpicsize() '设置图片大小

Dim n '图片个数

On Error Resume Next'忽略错误

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

片

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

Next n

For n = 1To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 400'设置图片高度为 400px ActiveDocument.Shapes(n).Width = 300'设置图片宽度 300px

Next n

End Sub

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

完整版通过EXCEL宏和SAPScript进行批量业务处理

通过EXCEL 宏和SAP Script 进行批量业务处理 SAP 提供了很多批量导入的工具，但问题是一般情况下不会赋予普通用户这些权限，因此 我结合EXCEL VBA 和SAP Script 功能整理出一个简易的批量业务处理方式，供大家参考 使用SAP Script Recording 功能录制SAP 操作，生成代码块 1.激活 SAP Script Recording 2.选择存放路径和script 代码块文件名称 3?点击「开始录制SAP 操作，建议以”/N ” +务代码，以保存为结尾。生成如下程序 代码文件， 可以用文本编辑器打开 Limank l￡d￡ Goto 百ysttirr Ho-p e - e eee Q I AK 霍I 忙巧餡臨?丨?— Sa 猶 D-Qckj^g GonTanFT Layout glex 日 DeckfiQ Cantanef sou 口 M ME Gfineira:* G 它口「忙 CTBatfl shoutcj^t,,. Acthrate SuiXT 5CfpC FlfrCCirdlM and 田3卢目 dk … ^AP ^ui hCHbiw neb Dfliftulr 5? 生rd Coey 口⑻?dter Set * 口uiEk Cut ?".d Pn3t? 宜群6*聽鞅 SA￡ GUI 卜i 哦q ^ Dtepiav before revemi [ffl Wm￡r?r 1st ￡ DO ?口盯础门星N urri&fir [T 匚Bmpany c^d? TMg-l FlfiUl Yiii Joie 5p^izifca ：i? hs fix R CVTE P&strig Revertal 陆』 kscm 1 ol 1 PrHFtng 令 P L tin j Puicid Ch^ck rnensoum ?nt 9fiec*K3ir?n5 raacaH c oda CtocumarK DawAt T 扌城 Rfl D^xti-g Oste

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像素。 六、保存图片到你想要放的文件夹中。 七、关闭该图片。 八、单击动作窗口中最下面一行的第一个按钮，停止录制动作。至此，一个完整的调整图片大小的动作录制完成，只要不重装系统都可以长期调用。 九、“文件”→“自动”→“批处理”，在打开的的窗口中，“动作”栏选择为刚才录制的动作，“源”选为“文件夹”，单击“选取”到你要调整图片的文件夹。以同样的方法选好目的文件夹（存放调整后的图片）。对话框中几个勾选项目除了“包含所有子文件夹外”其它的都打勾，文件命名框内的内容无须改动，在“错误”栏选择“将错误记录到文件”，单击“存贮为”将错误文件存放

solidworks模型自定义属性的批量处理的宏代码

Attribute VB_Name = "利用子件处理属性1" '利用子件进行自定义属性的批量处理的VBA代码 '比较完善的第一版完成时间2012.11.05，作者：张中锋 '适用于深圳东风有限公司solidworks老模型属性更改满足金蝶公司PLM系统要求实例'测试通过环境：2012.11.05 windows XP SP3 ;solidworks 2010 SP02（32bit） '''''''''''''''' '''''''''''''''' '''''''''''''''' ' '版本更新日志 '1.0 2012.10.29 ①对属性中，存在空白情况处理时数据异常进行修复；②对于已经存在的自定义属性值，保护其值不被处理 '已知的bug记录 Public swModel2 As SldWorks.ModelDoc2 Public PARTNAME_Value_temp As String Public MATERIAL_Value2_temp As String Public swApp As SldWorks.SldWorks Sub main() Dim swModel As SldWorks.ModelDoc2 Dim swModelDocExt As SldWorks.ModelDocExtension Dim swSelMgr As SldWorks.SelectionMgr Dim swBOMAnnotation As SldWorks.BomTableAnnotation Dim swBOMFeature As SldWorks.BomFeature Dim swBomTable As Variant Dim boolstatus As Boolean Dim BomType As Long Dim Configuration As String Dim TemplateName As String Dim i, j, n, k As Integer Dim swBOM_name As String Dim component As Component2 Dim value_temp As Integer

用宏批量调整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

宏命令将图片批量替换成统一大小

宏命令将图片批量替换成统一大小 步骤： 1.点击【文件】-【选项】，在弹出的窗口中选择【自定义功能区】，勾选开发工具选项后，点击【确定】，如下图： 2.会在菜单上方出现开发工具的相关功能菜单，选择【开发工具】，点击【宏】，如下图： 3.点击【宏】后，弹出提示框，在宏名处输入宏名“setpicsize”点击创建按钮，如下图：

4.在弹出的VBA窗口中将如下代码复制到其中，如下图： 统一替换图片大小的VBA代码如下（单引号后面的内容为备注）： '1.改变图片大于14.5cm的宽度 '注：高跟宽的数值单位为px,而word中的单位为cm（1px约等于0.0352cm） Sub setpicsize() Dim j '计数图片个数 For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes picheight = ActiveDocument.InlineShapes(j).Height '高度赋值 picwidth = ActiveDocument.InlineShapes(j).Width '宽度赋值 If (ActiveDocument.InlineShapes(j).Width > 375 And ActiveDocument.InlineShapes(j).Width < 415) Then '判断图片宽度范围，将宽度大于13.23cm的图片，小于14.68的图片统一缩放

ActiveDocument.InlineShapes(j).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '图片居中 ActiveDocument.InlineShapes(j).Width = 411 '设置宽度为411px,约14.5cm ActiveDocument.InlineShapes(j).Height = picheight * (411 / picwidth) '设置图片高度,根据设置的宽度值等比例缩放图片高度 ElseIf (ActiveDocument.InlineShapes(j).Width > 417) Then '判断图片宽度范围，将宽度大于14.7cm的图片统一缩放 ActiveDocument.InlineShapes(j).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '图片居中 ActiveDocument.InlineShapes(j).Width = 411 '设置宽度为411px,约14.5cm ActiveDocument.InlineShapes(j).Height = picheight * (411 / picwidth) '设置图片高度,根据设置的宽度值等比例缩放图片高度 End If Next j End Sub 注意： （1）修改图片尺寸时，代码运行前需要根据实际情况进行修改图片尺寸的大小范围限制代码，图中标注处所示 （2）修改图片尺寸时，需计算修改的图片的宽高值，因为图片的高跟宽的数值单位为px，而word中的单位为cm，根据每台电脑不同的分辨率，1px约等于0.0352cm （3）图片替换之前文档最好先保存副本，因为运行宏后的文档无法撤销操作，如果操作错误，只能通过关闭文档时，选择不保存后，重新打开 （4）代码可用英文状态下的单上引号进行备注，删掉不影响代码的运行 （5）如修改图片尺寸的代码无需修改，可直接在点击【宏】后，在弹出提示框中选择宏名“setpicsize”，点击运行按钮进行操作 （6）一次性修改的文档中图片过多时，文档会未响应一小段时间，请耐心等待即可5.点击运行按钮，运行统一替换图片尺寸代码

批量处理和单个处理word图片大小和比例的宏

设定单个图片大小的宏： Sub 宏5() Selection.InlineShapes(1).LockAspectRatio = msoFalse '解除纵横 比锁定 Dim h!, w! h = Selection.InlineShapes(1).Height w = Selection.InlineShapes(1).Width Selection.InlineShapes(1).Height = 627 '设置图片高度为627px Selection.InlineShapes(1).Width = 407 '设置图片宽度407px End Sub 设定单个图片比例的宏： Sub 宏3() Selection.InlineShapes(1).LockAspectRatio = msoFalse '解除纵横 比锁定 Dim h!, w! h = Selection.InlineShapes(1).Height w = Selection.InlineShapes(1).Width Selection.InlineShapes(1).Height = h * 1.25 '设置图片高度比例为125% Selection.InlineShapes(1).Width = w * 0.77 '设置图片宽度比例为77% End Sub

批量设定图片大小的宏： 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 = 400 '设置图片高度为400px ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度300px Next n For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片Selection.InlineShapes(n).LockAspectRatio = msoFalse ActiveDocument.Shapes(n).Height = 400 '设置图片高度为400px ActiveDocument.Shapes(n).Width = 300 '设置图片宽度300px Next n End Sub 批量设定图片比例的宏 Sub 宏1() Dim n '图片个数 Dim picwidth

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

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

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

批量修改图片代码

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() '设置图片大小

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

Word编程宏批量修改图片大小

word批量修改图片大小 借助word的宏功能可以很好完成这一任务,无论word里有多少图片,很容易就在一瞬间搞定.。文档里面有几百张图片，规格都不一样，堆在文档里面很难看。为美化文档，将图片规范化，都设置成425x320像素大小。手工修改每张图片很费时间也费鼠标，所以，你得好好看看以下如何做了。 打开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）进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行！

如何批量处理图片的大小

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

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

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

出现了录制按钮，如下图

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

Excel通过宏来处理批量复制操作

一、开发工具菜单 插入复选框 1.点击Excel左上角的图标（如图一），在弹出的窗体内点击“Excel选项”会弹出“Excel选项”窗体。 图一 2.在窗体内的“常用”选择项卡下，将“在功能区显示“开发工具”选项卡”选项勾中。点击“确定”按钮

图二 3.在Excel菜单栏处会显示出“开发工具”菜单 点击“开发工具——插入”会弹出一个控件选择框。 图三 在控件框内选择要插入控件，在Excel表内画出即可。 4.修改ActiveX控件属性，在Excel内选中ActiveX控件，点击菜单内的“属性”会弹出相应控件的“属性窗体”，在窗体内可对控件的属性进行调整。

二、VBA的使用 录制宏 1.新建sheet1，录入工资信息 2.在word选项内添加开发工具菜单。 3.选中标题列A1，点击开发工具——录制宏 4.在弹出的录制新宏内维护宏名称、执行快捷键操作 注意，快捷键只能是Ctrl + 英文字母

5.录制新宏维护好，确定保存后。 6.在执行操作前，要先点击开发工具——使用相对引用。显示如下图所示的选中浅黄 色背景 7.选中A1行复制，再选中A3行，执行复制单元格操作 选中A3单元格，点击开发工具——停步录制完成录制宏操作。 8.点击开发工具——宏，打开宏查看页面，可以查看到刚录制完成的宏“宏4）”

9.选中录制的宏，点击执行，在下面列自动添加1行标题栏 10.批量录制宏操作 11.打开宏查看页面，选中宏，点击编辑打开VBA代码页面

12.在VBA代码编辑页面录入批量复制代码保存（下面代码红色标识） Sub 宏4() Dim i For i = 1 To 15 '15 是表示执行15次复制操作（要根据sheet表内容进行判断，例如我建了16行数据，去除第1列已有标题剩下15列需要添加标题列所以这里写15表明要执行15次）' 宏4 宏 ' ' ActiveCell.Rows("1:1").EntireRow.Select Selection.Copy ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select Selection.Insert Shift:=xlDown ActiveCell.Select Next End Sub

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

Sub 图片对齐() .................................... 错误!未指定书签。 Sub 图片大小().................................... 错误!未指定书签。Sub 浮于文字上方()................................ 错误!未指定书签。Sub 浮于文字上方()................................ 错误!未指定书签。Sub 连续()........................................ 错误!未指定书签。Sub 版式转换().................................... 错误!未指定书签。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

如何快速批量处理学生照片点名册

如何快速制作学生照片点名册 1.从教务秘书处得到学生集体在图书馆拍摄照片（图1），将一个自然班所有学生照片文件名修改为“学号+姓名”的形式，图2就是完成效果图。 图1 图2 2.将一个自然班的学生照片全部导入到word文档里面，这个时候照片比较大（图3），不是我们需要的尺寸，接下来我们要批量处理照片大小，将一个自然班所有照片处理在同一页上，使每个照片宽1.8cm，高2.4cm。 图3 3.利用录制好“批量处理照片大小”的宏的word文档，可以快速批量处理照片；如果是新建word文件，则需要创建宏，来批量处理照片大小。接下来会讲解这两种情况。先讲第一种。点击“开发工具”（图4），找到“宏安全性”，进入宏设置（图5），必须选择“启动所有宏”选项！然后点击图4中“宏”，进入宏（图6）界面，选择宏名“设置图片大小”，然后点击“运行”，程序自动运行结束，所有照片都批量处理为宽1.8cm，高2.4cm（图7）。 图4

图5 图6 图7 4. 第二种情况，新建word文件，则需要创建宏，来批量处理照片大小。一样需要按照第3步，在宏设置（图5），必须选择“启动所有宏”选项！然后点击图4中“宏”，进入宏（图8）界面，设置宏名“设置图片大小”，点击“创建”，自动弹出图10代码框。 图8 图9 图10 5.将批量编辑的代码，复制粘贴到对应区域“dim j→next j”（图11）。照片宽1.8cm，高2.4cm，对应的height=41，width=51.

图11 6.然后点击运行（图12，绿色小三角）。这运行结果如图7所示，批量处理照片大小已完成。 图12 7.接下来要快速处理各班的学生“学号+姓名”的文字信息提取工作，excel和text结合使用。首先找到学生的个人电子信息表（每个班主任都应该有的）如图13，将整个自然班学号姓名两列复制粘贴到新的excel空白表里（图14），将B姓名这列移动到C列（图15），B列空出待用。 图13 图14 图15 8.接下来把A列学号的后三位提出出来，显示在B列，用到“数据”→“分列”功能。点击分列（图16），弹出分列导向1对话框（图17），选择固定宽度，点击“下一步”，弹出分列导向2对话框（图18），在数据后三位的位置，用鼠标点一下，就会出现一条竖线，这条竖线就是分割数据的分界线，点击“下一步”，弹出分列导向3对话框（图19），点击完成，再在替换目标单元内容窗口里面选择“确定”（图20）。则图15A列数据，分割成图21中A、B两列数据，其中B列是目标数据。

批量删除WORD文档中的图片 宏+替换

批量删除WORD文档中的图片 有时要一次性删除某个Word文档中所有图片．一张一张地寻找图片并按下DEL键删除真是麻烦死了，这时你有一般两种方法可以选择： 一、 可以让“查找和替换”功能帮你的忙，在Word中同时按下“Ctrl＋H”键打开“查找和替换”对话框，点击“替换”标签中的“更多”按钮，再选择“特殊格式→图形”项，这时会在“查找内容”中自动输入“^g”，最后直接按下“全部替换”按钮即可彻底删除所有图片。（想要知道高级的查找替换功能，可以搜索word的通配符、正则表达式等内容） 二、用宏程序删除WORD图片 有时在word中使用第一种方法不能奏效，可以使用宏代码的方式进行删除，如果一次无法删除完全，可以多运行几遍。代码如下： Sub Macro1() For Each ShapeRange In ActiveDocument.Shapes ShapeRange.Delete Next ShapeRange End Sub 附: Word通配符查找详解（Wildcards） 通配符使用规则如下： 任意单个字符 键入? 例如，s?t 可查找“sat”和“set”。 任意字符串 键入* 例如，s*d 可查找“sad”和“started”。 单词的开头 键入< 例如，<(inter) 查找“interesting”和“intercept”，但不查找“splintered”。 单词的结尾 键入> 例如，(in)>查找“in”和“within”，但不查找“interesting”。 指定字符之一 键入[ ] 例如，w[io]n 查找“win”和“won”。

指定范围内任意单个字符 键入[-] 例如，[r-t]ight 查找“right”和“sight”。必须用升序来表示该范围。 中括号内指定字符范围以外的任意单个字符 键入[!x-z] 例如，t[!a-m]ck 查找“tock”和“tuck”，但不查找“tack”和“tick”。 n 个重复的前一字符或表达式 键入{n} 例如，fe{2}d 查找“feed”，但不查找“fed”。 至少n 个前一字符或表达式 键入{n,} 例如，fe{1,}d 查找“fed”和“feed”。 n 到m 个前一字符或表达式 键入{n,m} 例如，10{1,3} 查找“10”、“100”和“1000”。 一个以上的前一字符或表达式 键入@ 例如，lo@t 查找“lot”和“loot”。 特殊意义的字符 键入\ 例如，f[\?]t 查找“f?t” ( ) 对查询结果没有影响，是一个替换时分组的概念 例子： 用\2 \1替换(John) (Smith)，得到结果Smith John 即\1代表John，\2代表Smith