用宏批量调整中图片版式大小方向
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
pic.Height = myheight
pic.ScaleWidth = pic.ScaleHeight
ElseIf myheight = "0" Then
pic.Width = mywidth
pic.ScaleHeight = pic.ScaleWidth
Else
pic.Width = mywidth
pic.Height = myheight
End If
Next
'调整浮动式图形
Dim tu As Shape
For Each tu In ActiveDocument.Shapes
If mywidth = "0" Then
tu.Height = myheight
ElseIf myheight = "0" Then
tu.Width = mywidth
Else
tu.LockAspectRatio = msoFalse
tu.Width = mywidth
tu.Height = myheight
End If
Next
Application.ScreenUpdating = True '恢复屏幕更新End Sub
Sub 浮于文字上方()
Dim oShape As Variant, tu As Shape, i Application.ScreenUpdating = False '关闭屏幕更新On Error Resume Next
'调整嵌入图形为浮于文字上方，并旋转90度
For Each oShape In ActiveDocument.InlineShapes Set oShape = oShape.ConvertToShape
ActiveDocument.InlineShapes(i).Select
With oShape
.WrapFormat.Type = 3' (去除.Zorder行.WrapFormat.Type = shapeType四周形.WrapFormat.Type = wdWrapTight紧密形改为.ConvertToInlineShape嵌入形)
.ZOrder 4 '4浮于文字上方5衬于下方
.Rotation = -90#
End With
Next
'调整其它图形为浮于文字上方，并旋转90度
For Each tu In ActiveDocument.Shapes
ActiveDocument.Shapes(i).Select
With tu
.WrapFormat.Type = 3' (去除.Zorder行.WrapFormat.Type = shapeType四周形.WrapFormat.Type = wdWrapTight紧密形改为.ConvertToInlineShape嵌入形)
.ZOrder 4 '4浮于文字上方5衬于下方
.Rotation = -90#
End With
Next
Application.ScreenUpdating = True '恢复屏幕更新
End Sub
Sub 浮于文字上方()
Dim oShape As Variant, i
Application.ScreenUpdating = False '关闭屏幕更新
On Error Resume Next
For Each oShape In ActiveDocument.InlineShapes
Set oShape = oShape.ConvertToShape
ActiveDocument.InlineShapes(i).Select '选中图片
With oShape
.ZOrder 4 '选中图片版式调为浮于文字上方
.Rotation = -90# '选中图片向左旋转90度
End With
Next
Application.ScreenUpdating = True '关闭屏幕更新
End Sub
Sub 连续()
Call 浮于文字上方
Call 图片大小
Call 图片对齐
End Sub
Sub 版式转换()
Dim oShape As Variant, shapeType As WdWrapType
On Error Resume Next
If MsgBox("Y将图片由嵌入式转为浮动式,N将图片由浮动式转为嵌入式", 68) = 6 Then shapeType = Val(InputBox(Prompt:="请输入图片版式:0=四周型,1=紧密型, " & vbLf & _
"3=衬于文字下方,4=浮于文字上方", Default:=0)) For Each oShape In ActiveDocument.InlineShapes
Set oShape = oShape.ConvertToShape
With oShape
Select Case shapeType
Case 0, 1
.WrapFormat.Type = shapeType
Case 3
.WrapFormat.Type = 3
.ZOrder 5
Case 4
.WrapFormat.Type = 3
.ZOrder 4
Case Else
Exit Sub
End Select
.WrapFormat.AllowOverlap = False
End With
Next
Else
For Each oShape In ActiveDocument.Shapes
oShape.ConvertToInlineShape
Next
End If
End Sub
Sub 图片方向()
Dim n
On Error Resume Next
ActiveDocument.Shapes(n).IncrementRotation -90# 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
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，选中“窗口→动作”命令，打开动作命令窗口。此时，动作命令栏里只有默认命令序列和一些默认动作。 第二步，执行“文件→打开”动作，任意打开一张图片。单击动作命令栏“创建新动作”快捷命令图
宏命令将图片批量替换成统一大小
宏命令将图片批量替换成统一大小 步骤： 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中批量修改图片大小 默认分类2010-09-02 20:38:03 阅读168 评论0 字号：大中小订阅 固定长宽篇 这部分要说的是把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），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！（图片多时，可能会花一些时间） 按比例缩放篇 这部分要说的是把word中的所有图片按比例缩放！ 具体操作同上，只是代码部分稍做修改，代码如下： Sub setpicsize() '设置图片大小 Dim n'图片个数 Dim picwidth Dim picheight On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片 picheight = ActiveDocument.InlineShapes(n).Height picwidth = ActiveDocument.InlineShapes(n).Width ActiveDocument.InlineShapes(n).Height = picheight * 1.1 '设置高度为1.1倍
批量修改图片代码
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.360docs.net/doc/3f5569393.html,/s/blog_503ff9de0100cwcl.html) - 如何批量处理图片大小——学习photoshop动作（转贴）_醉夕阳_新浪博客 第四步：点击“动作面板”上的“创建新动作按钮”，出现新动作的录制面板，给你要录制的动作起一个名字。（如图片调整）其它不要动哦。然后点击“记录”，如下图：
出现了录制按钮，如下图
第五步：前面的这些都是为下面的制作打下一个基础。下面你的每一个操作步骤都会被录制下来，一定要按照我说的去做哦。现在开始调整图像的大小：选图像－图像大小。如下图：将图片设置成需要的大小。在新浪博客中横幅图片一般设置成550像素以内为好，太宽则显示不全。设置好后点击对话框中的“好”按钮。
教你如何批量处理相片 使图片变小
教你如何批量处理相片使图片变小 当前高象素的数码相机普及，大家拍的照片，动辄1M左右的体积，日积月累的，不仅占去了很大的硬盘空间，也不方便将其上传到网络上和亲友们共享（好多的网站考虑到服务器的负担，会限制上传图片的大小），一张张的修改照片的大小很是麻烦，现在，就介绍给大家一款功能很强大，操作很简单的图片处理软件：光影魔术手。 今天先来讲一下如何将任意张数的照片一下子调整到你想要的大小，即批处理图片大小的功能。 打开光影魔术手 （此软件为免费软件，下载地址：https://www.360docs.net/doc/3f5569393.html,/soft/26063.html） 选择“文件”---“批处理” 出现下面这个对话框
点击“增加”，会弹出一个文件选择框，你可以逐张选择你要处理的照片。 点击“目录”，会弹出一个文件夹选择框，你可以选择一个文件夹，将此文件夹里所有的照片都选中。 选好图片后，点击上图中的“自动处理”选项，出现下面这个框
如不需要做其他效果的处理，那只需要在“缩放尺寸”上打勾即成然后点击右侧选项中的“缩放”，出现下面的对话框
修改边长的数据，建议将图片的较长边的象素设置在500-650之间。这样出来的照片大小一般在100K以下。 修改好数字后点击“确定” 然后在原有对话框中选择“输出设置”
按自己的习惯设置处理后照片的文件名，输出的文件夹、格式等等，文件格式建议用ｊｐｇ，比较的通用。 最后点击“确定”，软件就自动为你处理图片了～～ 完成后去你指定的文件夹（不指定的话，处理完的照片在原照片的文件夹中），就可以看到已经全部变成你想要的大小的照片了！ 怎么样？很简单的步骤就可以一下子处理好上百张的照片哦！这个设置的过程一旦熟练了，只需要花一分钟不到的时间～～
用宏批量调整中图片版式大小方向
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
PS批量处理图片
【电脑】PS如何批量处理图片 2010-05-18 14:13:40 喜爱摄影的朋友可能都有这样的体会，相机里面存了大量的图片，一般都是2048×1536或者更大像素的照片，每张都有1M以上，如果设置的清晰度高，则照片就更大，这样的图片是无法上传到博客中的（博客要求每张图片的大小不能超过300K，宽度超过550像素时也无法全部显示）。这就需要对每张图片进行处理，可是一次拍摄了几十张上百张照片，一张一张处理岂不是太浪费时间。下面就教大家一招，让你轻轻松松批量处理图片，嘻嘻！ 第一步：建立一个文件夹，将需要处理的照片放入这个文件夹中（注意：图片要纵横一致）。不如我上篇文章中拍摄的满洲里照片，将欲发表的照片放入新建的文件夹“边城满洲里” 文件夹中，然后再建一个文件夹，起名“边城满洲里发表”，待用。 第二步：打开PHOTOSHOP处理软件，这个软件现在网上很多，大家可以搜索下载。打开PS处理软件，然后打开欲发表文件夹中的任意一张照片。 第三步：点击PS工具栏的“窗口”，在下拉菜单中找到“动作”面板，将其打开，或者按Alt+F9也能将其打开，一般打开PS软件的时候动作面板已经打开了
第四步：点击“动作面板”上的“创建新动作按钮”，出现新动作的录制面板，给你要录制的动作起一个名字。（如图片调整）其它不要动哦。然后点击“记录”，如下图：
出现了录制按钮，如下图
第五步：前面的这些都是为下面的制作打下一个基础。下面你的每一个操作步骤都会被录制下来，一定要按照我说的去做哦。现在开始调整图像的大小：选图像－图像大小。如下图：将图片设置成需要的大小。在新浪博客中横幅图片一般设置成550像素以内为好，太宽则显示不全。设置好后点击对话框中的“好”按钮。
批量删除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
批量处理和单个处理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
三步完成批量调整图片尺寸
三步完成批量调整图片尺寸 直线网https://www.360docs.net/doc/3f5569393.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.360docs.net/doc/3f5569393.html,