(完整版)Word中的图片批量统一大小及同比例缩放
- 格式:doc
- 大小:221.01 KB
- 文档页数:4
这部分要说的是把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 '设置图片高度为400pxActiveDocument.InlineShapes(n)。
Width = 300 '设置图片宽度300pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片ActiveDocument.Shapes(n)。
Height = 400 '设置图片高度为400pxActiveDocument.Shapes(n)。
Width = 300 '设置图片宽度300pxNext nEnd Sub3、返回word,工具-宏-宏(或者直接按Alt+F8),再次进入宏的界面,选择刚才编辑好的宏,并单击"运行"按钮,就可以了!(图片多时,可能会花一些时间)方法二:1、在word中按alt+f11组合键,进入VBA模式2、在左边的工程资源管理器中找到你的word文档,在其上右键/添加/模块3、把下面代码复制,粘贴进去。
4、更改数值,改一下宽度和高度数值(10),点运行(类似播放按钮。
将Word⽂档中所有图⽚统⼀修改⼤⼩,⽆论多少张都可以⼀键搞定!我们平时在写论⽂,或者给长篇⽂档进⾏排版时,难免会对插⼊的图⽚进⾏格式设置。
⽐如说图⽚的环绕格式、图⽚的尺⼨⼤⼩等。
⽽⽂档⾥⾯的图⽚⼜⾮常多,⼀张张去修改确实很⿇烦。
有什么⽅法可以⼀键修改图⽚的环绕格式、图⽚的尺⼨⼤⼩呢?这个问题也是这⼏天粉丝经常问我的⼀个问题。
下⾯我给⼤家讲解详细的步骤,记得要转发收藏⼀份哦~具体操作步骤如下:第⼀步:在插⼊图⽚之前先将图⽚环绕格式设置为“四周型”或“浮于⽂字上下⽅”。
1、⾸先我们应该知道Word⽂档插⼊的图⽚默认是“嵌⼊型”的,这种格式图⽚不能任意拖动拖动。
2、点击左上⾓“⽂件” -- 点击“选项”。
3、弹出“Word选项”对话框 -- 点击“⾼级”选项卡 -- 在右边找到“剪切、复制和粘贴” -- 将下⽅的“将图⽚复制/粘贴为”选择“四周型” -- 点击“确定”按钮。
4、设置完成之后,我们以后插⼊的图⽚默认就是“四周型”的了,⽽且图⽚可以随意的拖动,看看动图演⽰。
第⼆步:激活“选择多个对象”这个功能按钮。
1、我们都知道在Excel中可以通过对象选择表格中的所有图⽚。
当然Word也可以,你只需激活下图中的“选择多个对象”这个功能按钮即可。
2、点击左上⾓“⽂件” -- 点击“选项”。
3、弹出“Word选项”对话框 -- 点击“⾃定义功能区” -- “从下列位置选择命令”选择“不在功能区中的命令” -- 找到“选择多个对象” -- 点击“添加”按钮添加到“开始”选项卡的“新建组”中 -- 点击“确定”按钮即可。
4、设置完成之后可以看到在“开始”选项卡下多了⼀个“选择多个对象”的功能。
看看动图演⽰。
以上的2步设置完成之后,以后你插⼊的图⽚都是“四周型”格式,⽽且可以⼀次性选中⽂档中的所有图⽚。
第三步:如果你的Word⽂档后缀名是“.docx”,修改为“.doc”。
因为“选择多个对象”是早期的功能,不⽀持“.docx”后缀格式的,只⽀持“.doc”格式的。
简单的Word小技巧,一分钟统一全部图片尺寸
Word作为office三巨头之一,在日常学习生活中我们经常使用,而图片作为文档中经常常插入的内容,我们常常会因为修改图片尺寸而烦恼。
如果一个接一个修改图片的尺寸,虽然人类的本质是“复读机”,但是这种枯燥且乏味的重复操作还是会让我们感到烦恼,这无疑降低我们的日常工作效率。
今天墨迹给大家带来一个简单快捷的统一Word中所有图片尺寸的方法,让你一分钟修改全部图片尺寸。
假设我们的文档中有尺寸大小不一的多张图片:
1、首先选中第一张图片,右键“大小和位置”,在“高度和宽度”一栏中修改你想要的图片尺寸,完成后点击确定(注意如果宽度和高度都修改的时候,不要勾选下方的锁定纵横比)
2、点击其他的图片,按住F4(笔记本按“Fn+F4”)即可统一全部图片尺寸为你想要的尺寸
小知识:F4的功能是重复Word里你的上一步操作,如果上一步修改的是字体,使用F4修改的也是字体。
我是墨迹,每天三分钟,带你学会更多办公小技巧,实现办公不墨迹!。
[手把手]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 '设置图片宽度4cmNext nEnd Sub'其中图片本例中图片尺寸为5cm和4cm4. 4点击“Microsoft Visual Basic”窗口工具栏里的“运行”按钮(类似播放器里的播放按钮)或者按键盘“F5”键等待一会儿……(等待时间取决于你插入图片的多少和你电脑的运算速度)……5. 5待标题栏上方的[正在运行]消失后,点击右上角小叉关闭“Microsoft Visual Basic”窗口。
Word文档批量把所有图片调整为相同大小,这个方法简单又
实用
在我们的工作中,编辑Word文档的时候,如何将插入的图片,批量调整为相同的大小、相同的尺寸呢?如果你一个个修改这些图片,那就太浪费时间了,今天就跟大家分享一个简单又实用的方法。
1.首先打开Word文档,点击【文件】-【选项】-【高级】,找到“将图片插入/粘贴为”,选择【四周型】。
(PS:图片要求为非嵌入式的任何一种环绕方式都可以)
2.然后再次点击【文件】-【选项】-【自定义功能区】,先选择【所有命令】,再找到【选择多个对象】,选中后点击【添加】到右边的自定义功能区。
3.接着需要将Word格式另存为Doc,在键盘上按下功能键【F12】另存为,保存类型改为:“Word97-2003文档*.doc”。
4.最后我们就可以一键批量修改图片大小了,在Word文档里插入大量图片,点击【选择多个对象】快捷按钮,右键图片【设置自选图形/图片格式】,修改图片高度、宽度,点击【确定】,图片尺寸瞬间统一。
这个方法是不是比一张张修改得快多了?如果你的图片不是用于Word文档,也需要修改图片尺寸,可以借助【迅捷图片转换器】。
•在批量处理中找到「批量剪裁」功能;
•一次性最多支持批量修改50张图片;
•有固定的比例可以选择也可以自定义。
当图片体积太大,还可以进行批量「图片压缩」,添加图片后设置压缩模式、清晰度、分辨率、输出格式,以及压缩后的图片大小。
以上就是把所有图片调整为相同大小的方法,简单又实用,希望可以在工作中帮到你。
Word怎样批量修改图⽚⼤⼩、位置?有⽐这5个⽅法更全的么?Word批量修改图⽚⼤⼩、位置,5个⽅法集合召唤神龙!⼀、Word批量修改图⽚位置(⼀)替换功能Word替换功能很强⼤,不仅可以批量替换⽂本、修改⽂本格式,还可以批量修改图⽚位置~Ctrl+H替换——查找内容:光标定位,左下⾓点击【更多】,底部点击【特殊格式】,选择【图形】(根据原⽂对段落格式进⾏相应设置)。
或者直接输⼊^g替换为:左下⾓点击【更多】,左下⾓点击【格式】,选择【段落】——【缩进和间距】⾃定义设置,右下⽅点击确定——点击【全部替换】。
(⼆)借助表格借助表格可以让图⽚固定位置~1、插⼊表格点击【插⼊ - 表格】,根据所需插⼊图⽚数量、排布情况选择⾏、列。
2、设置⾏⾼、单元格边距选中表格右键,选择【表格属性】——点击【⾏】选项卡,【尺⼨】勾选【指定⾼度】,设置图⽚⾼度——点击【确定】。
右键,选择【表格属性】——点击【单元格】选项卡,右下⽅点击【选项】,⾃定义单元格边距——点击【确定】。
3、导⼊图⽚(三)选择多个对象这个⽅法貌似⽐较⾼级⼀点?~1、添加功能点击【⽂件 - 选项 - ⾃定义功能区】,点击【从下列位置选择命令】选择【所有命令】,下⽅找到并点击【选择多个对象】,右侧【主选项卡】下边点击【新建组】,最后点击中间的【添加】按钮。
点击【⽂件 - 选项 - ⾼级】——【剪切、复制和粘贴- 将图⽚插⼊/粘贴为】,设置环绕⽅式。
⽂件后缀格式【.docx】改为【.doc】。
4、图⽚格式【开始】功能区最后⼀项【选择多个对象】——弹窗左下⾓点击【全选】——右键设置图⽚格式。
⼆、Word批量修改图⽚⼤⼩、位置万能的F4重复键~⽅法:双击第⼀张图⽚,修改⼤⼩或位置作为样本——分别选中其它图⽚按F4键。
三、批处理插件批量修改图⽚⼤⼩遇到需要批量修改图⽚⼤⼩,可以⽤⼀个插件~【美图秀秀批处理】,再多图⽚⼀键搞定~⽅法:左侧点击【添加图⽚】——右下⾓设置修改图的保存【路径】——右上⽅设置【修改尺⼨(保持原图⽐例)】,点击【更多】调整【画质】——右下⾓点击【保存】。
选择工具——宏——宏(Alt+F8调出宏编辑窗口),输入宏名——(非数字)——创建;在Sub 宏名()与End Sub之间编写如下代码:(之后单击运行即可)Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 99 '设置图片高度为99pxActiveDocument.InlineShapes(n).Width = 71 '设置图片宽度71pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 99 '设置图片高度为99pxActiveDocument.Shapes(n).Width = 71 '设置图片宽度71pxNext n我们可以尝试使用VBA完成Word文档中图片统一设置宽高:Sub 统一图片尺寸()'仅适用于嵌入式图片Dim oInlineShape As InlineShapeFor Each oInlineShape In ActiveDocument.InlineShapesWith oInlineShape.LockAspectRatio = msoFalse '不锁定纵横比.Height = MillimetersToPoints(23) '以毫米为单位设置高度.Width = MillimetersToPoints(31) '以毫米为单位设置宽度End WithNextEnd Sub如果是浮动式图形,可以使用以下方法简单实现:1、单击【绘图】工具栏右则的(工具栏选项)按钮,依次单击【添加或删除按钮】/【绘图】/【选中多个对象】命令,【选中多个对象】命令将被添加到【绘图】工具栏的最后位置。
【Word】如何将Word里插入的所有图片批量调整统一大小?
【操作方法及步骤】
方法一:神奇F4按键Step1 右击图片,选择“大小和位置”,去掉“锁定纵横比”前面的√,再调整图片大小。
Step2按住F4,笔记本电脑需要同时按住fn+F4,然后一个个点击剩下的图片。
F4是重复上一步的功能键,故有此功效。
【优缺点】适合文档中图片数量较少的情况下操作,对于大量图片的文档不适用。
方法二:大量图片同时调整(需先调整Word文档格式,再进行图片插入及编辑)Step 1 更改图片文字的环绕方式为“四周型”,点击“文件”菜单→选项→高级→“将图片粘贴\插入为”→选择“四周型”(PS:此前插入的图片不受此限制,此后插入的图片才为“四周型”)。
Step2将“选择多个对象”命令按钮添加至快速访问工具栏。
右击快速访问工具栏,选择“自定义功能区”。
Step 3选择“快速访问工具栏”→在顶部“从下列位置选择命令”中选择“所有命令”→找到“选择多个对象”命令按钮,添加至快速访问工具栏。
Step 4 将文档另存为“Word 97-2003 文档”,“选择多个对象”功能仅限于老版本的Word使用,新版本已不再支持。
Step 5单击“选择多个对象”→选中所有的图片→修改图片格式大小
【优缺点】适合文档中图片数量较多的情况下操作,但是修改后,图片会乱窜,无法停留在原先固定的位置。
Word宏:Word中的图片批量统一大小及同比例缩放(图)有些时候,我们用Word来做一些图文混排的文档,需要正规的样式,例如图片大小一致。
下面的方法就是告诉我们如何来实现很多的图片统一大小。
实现代码:Sub setpicsize() '设置图片大小Dim n '图片个数On Error Resume Next'忽略错误For n = 1To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 400'设置图片高度为400pxActiveDocument.InlineShapes(n).Width = 300'设置图片宽度300pxNext nFor n = 1To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 400'设置图片高度为400pxActiveDocument.Shapes(n).Width = 300'设置图片宽度300pxNext nEnd Sub[Ctrl+A 全部选择提示:你可先修改部分代码,再按运行]使用方法和[Word宏:Word中英文标点符号互换-VBA源码实现(图)] 中介绍的一样,把代码复制到Visual Biscal编辑器中,再回到Word界面,运行“宏”命令。
操作步骤如下:1.打开要统一图片大小的Word文档,点击“工具”-“宏”-“Visual Biscal编辑器。
)插入normal工程“模块”2。
3)在“模块”中粘贴上面的代码。
”尭宏命令文档。
运行“工具”-“宏Word4)保存,返回你要统一图片大小的看一下结果,是不是你想要的统一图片大小。
我用的两张图一个大一个小,统一后400*300还是很大,放在两个页面上,上面是25%的缩略图,至此实现了统一大小的目标,如果你想要其它的大小,只需按代码里的说明更改一下长宽数值即可。
Word中500张图片如何统一大小?你该这么做,1分钟快速批量更改当我们在Word文档中插入多张大小不一的图片时,为了排版美观,需要将所有图片设置成统一大小。
调整图片大小的常规方法是选择图片,通过在图片四个角的节点上按左键拖动来调整图片大小,同时,也可以在图片“格式”选项卡——大小,手动输入图片的精确尺寸。
如果多张图片需要统一大小,可先将其中一张图片调整好尺寸,然后逐一选择其他图片,按【F4】来实现多张图片统一大小。
以上方法对几张或十来张可行,假如图片有100张甚至500张呢?我想使用【F4】也会显得捉襟见肘。
那么,针对大量图片有没有什么方法可以快速统一大小呢?今天,和大家分享关于多张图片快速批量统一大小的技巧,操作方法如下:一、设置图片文字环绕方式图片插入到Word文档中,默认文字环绕方式为“嵌入型”,我们需要将它的环绕方式设置为“四周型”。
操作方法:点击“文件”菜单——选项,在‘高级’中找到“将图片粘贴\插入为”,选择“四周型”。
设置图片文字环绕方式二、添加“选择多个对象”命令按钮可以将”选择多个对象“命令按钮添加至快速访问工具栏或任意一个功能选项卡,这里,我们将它添加到”快速访问工具栏”中。
操作方法:在快速访问工具栏上右击,选择“自定义快速访问工具栏”,在右侧所有命令中找到“选择多个对象”,将其添加至快速访问工具栏中。
添加“选择多个对象”按钮三、另存文档类型因为“选择多个对象”是前期版本中的功能,不支持2016的文档,需要将文档的类型另存为97-2003版本。
操作方法:按【F12】打开另存为窗口,在保存类型中选择“Word 97-2003 文档(*.doc)”,点击保存即可。
另存文档类型四、批量修改图片大小操作方法:点击“快速访问工具栏”上的“选择多个对象”,在弹出的对话框点击“全选”按钮,全选所有图片后,在图片右击,选择“设置自选图形/图片格式”,在大小选项卡中,手动输入图片的尺寸,将下方“锁定纵横比”复选框中的√去掉,点击“确定”即可。
如何快速调整Word文档中的图片大小和位置在日常工作和学习中,我们经常需要在Word文档中插入图片来丰富内容和提升可读性。
然而,有时候我们可能会遇到一些问题,比如插入的图片大小不合适或位置不对,这时候我们就需要快速调整图片的大小和位置来满足我们的需求。
下面将介绍一些简单而有效的方法,帮助大家快速调整Word文档中的图片大小和位置。
一、调整图片大小1. 使用鼠标拖动调整大小:在Word文档中插入图片后,可以通过鼠标拖动来调整图片的大小。
将鼠标放在图片的边缘或角落处,光标会变成双向箭头或斜向箭头,然后按住鼠标左键,拖动鼠标即可调整图片的大小。
如果需要保持图片的比例不变,可以按住Shift键再拖动。
2. 使用“格式”选项卡调整大小:选中图片后,点击“格式”选项卡,可以看到“大小”组中的“高度”和“宽度”选项。
在这里可以手动输入具体的数值来调整图片的大小。
如果需要保持图片的比例不变,可以勾选“锁定纵横比”选项。
3. 使用“裁剪”工具调整大小:选中图片后,点击“格式”选项卡中的“裁剪”工具,可以出现裁剪边框和调整大小的圆点。
通过拖动这些圆点来调整图片的大小。
同时,可以使用右键菜单中的“重置图片大小”选项将图片恢复到原始大小。
二、调整图片位置1. 使用鼠标拖动调整位置:在Word文档中插入图片后,可以通过鼠标拖动来调整图片的位置。
将鼠标放在图片上,光标会变成十字箭头,然后按住鼠标左键,拖动鼠标即可调整图片的位置。
同时,可以按住Ctrl键来微调图片的位置。
2. 使用布局选项调整位置:选中图片后,点击“格式”选项卡中的“布局”工具,可以选择不同的布局方式来调整图片的位置。
比如,可以选择“紧密型”将图片与文字紧密排列,或选择“嵌入型”将图片嵌入到文字中间。
3. 使用“位置”选项调整位置:选中图片后,点击“格式”选项卡中的“位置”工具,可以选择具体的位置选项来调整图片的位置。
比如,可以选择“页面顶端”将图片放置在页面的顶部,或选择“页面底端”将图片放置在页面的底部。
Word文档如何批量设置图片大小
批量将图片调整到相同尺寸大小,其实说实话PS也不是很好操作的。
那么今天小编就以word为大家演示,下面店铺就教大家Word文档批量设置图片大小的方法。
Word文档批量设置图片大小的方法
1、打开WORD,在”工具“菜单下选择”选项“命令。
2、在”选项“窗口中,在”编辑”选项卡下,将插入图片的格式选择为“四周型”,为什么要这么操作,因为我们默认插入图片的方式是嵌入式,使用“选择多个对象”命令时无法选择。
3、在“插入”菜单中选择“图片”/“来自文件”。
4、在“插入图片“对话框中选择要插入的图片。
5、在“绘图”工具栏中的“添加或删除按钮”中选择“选中多个对象”。
6、使用“选中多个对象”,将所有插入的图片全部选中。
7、双击任意一图片,在弹出的对话框中,将图片设置一固定尺寸,并取消下方的”锁定纵横比“命令。
8、这个时候你会发现所有的图片都变成了统一尺寸大小了。
9、那么怎么样将这些图片导出来呢?在”文件“菜单中选择”另存为“命令。
10、在”另存为“对话框中将保存类型设置为”网页“,最后点击”确定“按钮保存文件。
11、打开刚刚保存的文件,右击在弹出的菜单选择以”大小“进行排序。
12、大家可以发现,我们修改的后的图片都是相同的尺寸了。
13、其实保存的文件中有一个原图和修改尺寸后的图,我以大小进行排序的话可以很快速将他们分离出来。
Word中图⽚如何统⼀修改⼤⼩?按下快捷键「F4」,就能全部统⼀
⼤家好,欢迎⼤家来到⼿机办公达⼈,今天就来给⼤家讲⼀讲Word图⽚的排版技巧,相信⼤家
都经常会使⽤Word来写⽂案,⽽且Word的排版功能也是很强⼤的,只⽤F4这个快捷键,就能
将⽂档中的图⽚全部统⼀⼤⼩,下⾯就⼀起来看看吧。
⼀、插⼊图⽚
打开Word⽂档,点击⼯具栏上⾯的【插⼊】-【图⽚】,选择需要的图⽚并且插⼊到⽂档中。
⼆、选择图⽚
我们可以看到这些图⽚的⼤⼩每⼀张都是不同的,然后选择其中任意⼀张图⽚,⿏标右键选择
【⼤⼩和位置】。
三、修改图⽚⼤⼩
进⼊布局的窗⼝之后,先修改【⾼度的绝对值】,修改好之后,将下⾯的【锁定纵横⽐】取消勾选,这样【宽度的绝对值】就会随着⾼度的改变⽽改变,点击【确定】之后,图⽚就不会发
⽣变形。
四、F4统⼀⼤⼩
第⼀张图⽚的⼤⼩设置完成后,先不要进⾏其他步骤,先⽤⿏标选择第⼆张需要修改的图⽚,然后按下快捷键【F4】就能执⾏上⼀步的操作,图⽚就会⾃动修改⼤⼩,就可以和上⼀张图⽚
的⼤⼩⼀模⼀样了。
五、图⽚⼤⼩全部统⼀
通过上⾯的操作,⼤家应该知道该怎样做了吧,按住快捷键【F4】连续点击图⽚,图⽚⼤⼩就能全部统⼀了。
六、完整操作过程
这个图⽚统⼀的⽅法很简单,⽐较适合新⼿和图⽚⽐较少的⽂档,担⼼上⾯的步骤我没写详细,这次完整操作⼀遍给⼤家看。
以上的操作步骤就是分享给不懂的⼩伙伴,希望能够帮助到你,如果你在排版上还有什么问题,可以随时问⼩编,⼩编帮你。
实现WORD图片的批量导入、批量修改图片大小和批量压缩图片方法实现在WORD图片的批量导入:如果图片都存在同一个文件夹中,那么我们可以按住shift键批量插入图片~
一、批量修改word图片大小
1、菜单——“工具”——“宏”——“宏”,也可以用快捷键ALT+F8调出,
2、在“宏”窗口中,“宏名”改成“批量调整图片大小”
再点“编辑”
复制、粘贴以下代码:
Sub批量调整图片大小()
'
'调整图片大小Macro
'宏在2011-5-22由User创建
'
DimiShapeAsInlineShape,WidthNumAsLong ForEachiShapeInActiveDocument.InlineShapes
WithiShape
WidthNum=.Width
.Width=13*28.35
.Height=(13*28.35/WidthNum)*.Height
EndWith
Next
'注:1厘米=28.35磅值
'以上为同比例缩放的近似算法
EndSub
再点工具栏里的“保存”,保存修改。
3、选择宏名——运行,就可以自动批量修改图片大小。
二、批量压缩word图片大小
1、选中某一张图片——右键“设置图片格式”——“图片”——“压缩”——选择上面的应用于“文档中的所有图片”。
Word中批量设置图片大小(包括纵横比批量设置)
有时候需把大量的图片插入到office WORD中,由于图片大小不同,而且图片的纵横比默认都是锁定的,不方便一张一张调整很慢,查询了下,有以下这个方法可以快速批量改变图片大小。
版本要求是word2003等:
一,在word中按alt+f11组合键,进入VBA模式
二,在左边的工程资源管理器中找到你的word文档,在其上右键/添加/模块
三,把下面代码复制,粘贴进去.
四,更改数值, 改一下宽度和高度数值(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 中的图片批量统一大小及同比例缩放(图)有些时候,我们用Word来做一些图文混排的文档,需要正规的样式,例如图片大小一致。
下面的方法就是告诉我们如何来实现很多的图片统一大小。
实现代码: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 nFor n = 1 To 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 编辑器。
工具Q 〕 表格窗口⑭ 兆助徂J Xdabt TDFQB3 M&t ■砒 注粹©共享工作区如… 修订(I ) Ctrl+Shi f t+E 比簸并合并文措如… 保护主梢(£),•.联机协作僵J信函与邯件(1)2)插入normal 工程"模块”。
拼写和谩法窈一 一. 信息检素(M ). . - A1L+单击 谱舌田) 字数恭计地),一. 自动第写摘腰(Jp.-.语音始FT J n lift 寻;1。
Word中进行设置统一图片大小尺寸的操作方法
推荐文章
Word2007中进行设置不同页码的操作方法热度:Word中2007版进行设置奇偶页码左右分布的操作方法热度: word注意在任意进行页码设置热度:Word中2013版进行对插入图片样式进行设置的操作方法热度:Word中2013版进行设置背景图片的操作技巧热度:
word怎样统一图片大小尺寸,首先新建一个新建Microsoft Word 文档,你想要把图片缩小到什么程度,就先设置一下。
今天,店铺就教大家在Word中进行设置统一图片大小尺寸的操作方法。
Word中进行设置统一图片大小尺寸的操作步骤
文件---页面设置---页边距,
这里的左右页边距就是你要让自己的图片变成多大,页边距越大,图片之后就会越小。
Word中进行设置统一图片大小尺寸的操作步骤图2
下面插入预先准备好的图片。
Word中进行设置统一图片大小尺寸的操作步骤图3
Word中进行设置统一图片大小尺寸的操作步骤图4
看看,原本大小不一的图片瞬间整齐了。
Word中进行设置统一图片大小尺寸的操作步骤图5
下面要做的事情就是把这些图片从word导出来,
文件---另存为网页---网页。
Word中进行设置统一图片大小尺寸的操作步骤图6
Word中进行设置统一图片大小尺寸的操作步骤图7
然后关掉word文件,你就可以看到旁边多了一个文件夹,里面就是刚刚你调整过大小的图片.
Word中进行设置统一图片大小尺寸的操作步骤图8
Word中进行设置统一图片大小尺寸的操作步骤图9
接下来插入图片就可以看到统一大小的图片了。
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
[Ctrl+A 全部选择提示:你可先修改部分代码,再按运行]
使用方法和[Word宏:Word中英文标点符号互换-VBA源码实现(图)] 中介绍的一样,把代码复制到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
[Ctrl+A 全部选择提示:你可先修改部分代码,再按运行]。