-
2022-04-17 14:47:15
在word中调节图片的统一大小方法:
1、我们先调节好一张图片的大小;
2、选中其他图片,按F4快捷键即可统一图片大小。
更多相关内容 -
Office教程:word怎样统一图片大小尺寸.docx
2021-09-26 23:57:10Office教程:word怎样统一图片大小尺寸.docx -
word中如何将大量图片批处理统一的尺寸大小
2012-08-31 16:17:58word中如何将大量图片批处理统一的尺寸大小 -
word批量设置图片大小和对齐,使用宏定义
2022-05-14 18:38:15word宏处理,批量图片大小设置,对齐方式word使用宏定义来批量设置图片大小
打开word中开发工具,文件→选项→word选项
新建Visual Basic文件
点击 插入→模块
复制下列任意代码,粘贴到右侧。(注意可以灵活设置Myheigth或者Mywidth)
点击小三角,运行即可。
如何获取理想的Myheigth或Mywidth,选中一张图片,调节成适合的高度或者宽度,把数值记下来,赋值给Myheigth或Mywidth即可。
下列代码任选其一,粘贴即可
固定宽度
' 锁定图片的纵横比,固定宽度,高度任意 Sub 批量设置图片大小() Mywidth = 12 '厘米 On Error Resume Next '忽略错误 For Each iShape In ActiveDocument.InlineShapes iShape.LockAspectRatio = msoTrue '锁定图片的纵横比 iShape.Width = 28.345 * Mywidth '设置图片宽度 Next End Sub
固定高度
' 锁定图片的纵横比,固定高度,宽度任意 Sub 批量设置图片大小() Myheigth = 18 '厘米 On Error Resume Next '忽略错误 For Each iShape In ActiveDocument.InlineShapes iShape.LockAspectRatio = msoTrue '锁定图片的纵横比 iShape.Height = 28.345 * Myheigth '设置图片高度为任意cm Next End Sub
固定高度,固定宽度
' 不锁定图片的纵横比,固定高度,固定宽度 Sub 批量设置图片大小() Myheigth = 18 '厘米 Mywidth = 12 '厘米 On Error Resume Next '忽略错误 For Each iShape In ActiveDocument.InlineShapes iShape.LockAspectRatio = msoFalse '不锁定图片的纵横比 iShape.Height = 28.345 * Myheigth '设置图片高度为任意cm iShape.Width = 28.345 * Mywidth '设置图片宽度 Next End Sub
固定高度,固定宽度,有对话框手动输入
' 不锁定图片的纵横比,固定高度,固定宽度 Sub 批量设置图片大小() Myheigth = InputBox("输入一个高度值") '厘米 Mywidth = InputBox("输入一个宽度值") '厘米 On Error Resume Next '忽略错误 For Each iShape In ActiveDocument.InlineShapes iShape.LockAspectRatio = msoFalse '不锁定图片的纵横比 iShape.Height = 28.345 * Myheigth '设置图片高度为任意cm iShape.Width = 28.345 * Mywidth '设置图片宽度 Next End Sub
具体讲解,调用了VB的ShapeRange 对象,有很多方法,比如
Sub 批量设置图片大小() ... End Sub For Each iShape In ActiveDocument.InlineShapes iShape.Width = 28.345 * Mywidth '设置图片宽度为任意cm ... Next 批量设置图片大小宏, 下面这些注释提供参考,灵活修改 Myheigth = 18 '厘米 Mywidth = 12 '厘米 iShape.Height = 28.345 * Myheigth '设置图片高度为任意cm iShape.Width = 28.345 * Mywidth '设置图片宽度为任意cm iShape.LockAspectRatio = msoFalse '不锁定图片的纵横比 iShape.LockAspectRatio = msoTrue '锁定图片的纵横比
批量设置图片对齐方式
下面代码与大小调节代码不能一起运行,需要单独运行
Sub 批量设置图片对齐方式() ' .Alignment = wdAlignParagraphLeft '左对齐 ' .Alignment = wdAlignParagraphCenter '居中 ' .Alignment = wdAlignParagraphRight '右对齐 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find.Replacement.ParagraphFormat .SpaceBeforeAuto = False .SpaceAfterAuto = False .Alignment = wdAlignParagraphRight '右对齐,可修改为其他 .WordWrap = True End With With Selection.Find .Text = "^g" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub
参考:
ShapeRange object (Project) | Microsoft Docs
LockAspectRatio
InlineShapes object (Word) | Microsoft Docs
word使用宏定义来统一设置图片大小 -
VBA批量编辑word图片尺寸
2022-04-01 13:54:47Sub 设置图片尺寸() '设置图片尺寸 Dim n '图片个数 On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型 图片 ActiveDocument.InlineShapes(n).LockAspec.有些环境类咨询报告需要整理大量手机照片,且还需要放入报告,word中的VBA可快速实现照片尺寸的一致。
前提:word必须安装VB(就是能够运行 宏)
Sub 设置图片尺寸() '设置图片尺寸 Dim n '图片个数 On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型 图片 ActiveDocument.InlineShapes(n).LockAspectRatio = False ActiveDocument.InlineShapes(n).Height = 150 '设置图片高度为 7cm ActiveDocument.InlineShapes(n).Width = 200 '设置图片宽度 10cm Next n End Sub
-
Word2019 如何快速统一图片大小,将其他图片设置为参照图片大小
2020-09-08 15:42:111.首先选择一张图片,点击格式菜单,找到大小模块的下角标,点击弹出布局大小的设置。 2.然后将缩放部分的锁定...如果需要保持原尺寸的纵横比,去掉的勾选处可以勾选上,就会以缩放模块的宽高百分比来缩放图片。 ...1.首先选择一张图片,点击格式菜单,找到大小模块的下角标,点击弹出布局大小的设置。
2.然后将缩放部分的 锁定纵横比以及相对原始图片大小的勾选去掉,此处可以按照需求调节高德以及宽度的值,点击确定按钮。
3.确定宽高,点击确定按钮后,参照的图片大小已经设置完毕。
4.点击需要改变大小的其他图片,点击F4即可,此时图片大小会产生变化,会改变宽高的值,与参照图片宽高完全相同。
如果需要保持原尺寸的纵横比,去掉的勾选处可以勾选上,就会以缩放模块的宽高百分比来缩放图片。
-
word使用宏定义来统一设置图片大小
2018-04-23 09:09:001. 首先手动拖拽将图片调到需要的格式,点击图片在格式选项中查看图片的宽高 ...Sub 图片格式统一() ' ' 图片格式统一 宏 ' ' 'Myheigth = 12 Mywidth = 14 On Error Resume Next '忽略错误 For ... -
批量调整word文档中图片的大小
2018-09-10 09:18:20当你的word文档中有大量图片,需要批量统一修改图片大小时,可以在你的word文档中新建里一个宏,把资料里的代码复制到你所建立的宏的代码区,运行代码即可批量修改图片尺寸 -
word如何快速统一图片大小
2021-07-30 15:55:23我们经常会在word中插入多张图片,而图片的来源大小不一,插入时如果一张一张的设置相同大小很浪费时间,今天小编跟大家教一招快速统一图片大小的方法。 1.我们打开word文档工作界面,在word插入几张图片,选中其中... -
Word批量设置图片大小
2021-09-15 10:44:44写论文需要批量统一图片格式?让我们打开word“宏”。 1.查看Word图片属性是像素(px)还是厘米(cm) 如果是厘米,可以参考步骤二设置。如果是像素,跳转到步骤三开始coding。 (当然是cm也不影响,像素更方便) ... -
mac os 系统word文档批量更改图片尺寸问题汇总
2020-03-27 18:45:04word文档是文字、排版什么的都做完了,只想批量调一下图片尺寸。发现无论是word和还是wps都无法用快捷键选中所有图片。后面用宏解决了批量修改的问题。 -
word中批量调整图片大小的方法
2021-04-10 22:12:42经常将PPT转换为pdf在web上逐页进行展示,在该页面上不能复制、也不能另存为,为了打破这种限制,可通过页面缩略图将pdf的每一个页面进行批量选择复制,再粘贴到word中,由于图片数量多,大小和word窗口不匹配,一张... -
word批量调整图片大小:
2022-02-28 11:06:091)选中一个图片 > 在顶部最右菜单栏 "图片工具"的"格式"中修改好图片大小 2)按住F4键 > 鼠标左键依次点击其它图片 -
如何批量把照片设置统一尺寸?
2022-02-21 10:01:11如何批量把照片设置统一尺寸?今天小编就为大家介绍这个方法的详细操作步骤,感兴趣的小伙伴就请继续往下学习吧! -
Word 批量处理插入图片大小
2015-11-10 23:51:13Word 批量处理插入图片大小 使用Word宏进行统一更改图片大小。 相关代码及操作。 -
Skills | word批量修改图片为统一大小
2022-06-01 20:28:52批量修改Word中图片的大小 -
word利用宏批量调整图片大小
2022-05-07 11:38:06(1)设置固定大小n厘米 Sub resetImgSize() Dim iShape As InlineShape For Each iShape In ActiveDocument.InlineShapes iShape.LockAspectRatio = msoTrue iShape.Height = CentimetersToPoints(n) iShape.Width... -
怎么把WORD中插入的图片改为统一尺寸的,看这里,文档中图片怎么改成同样大小
2019-02-16 14:30:49写文章的过程中,一般加入一些图片会使得文章更加的生动活泼,达到图文并茂的效果。然而插入的图片往往是大小不一的,导致整篇文章毫无美感可言。今天小编教大家如何调整图片大小的方法,使你的文章整洁美观: 第一... -
使用宏批量修改word中图片大小
2018-02-07 11:49:09word中使用宏修改图片大小,图片大小相同 1、打开word中视图选项卡,选择“宏”->“输入宏名”->“创建” 2、编辑宏 输入下面代码 Sub FormatPics() Dim iSha As InlineShape For Each iSha In ... -
Word小技巧:图片批量裁剪与大小调整
2022-04-03 13:46:39本篇文章利用Word自带的宏,帮助有需要的朋友解决Word图片排版问题。只包含两项简单功能,代码1:按照第一张图片的尺寸对文档内所有图片进行修改;代码2:按照给定像素批量裁剪文档内所有图片。 -
word批量调整图片大小--宏
2021-02-18 00:32:45word中选择宏,查看宏或者创建宏,不同版本的略有区别 输入宏名称,默认也可 在相应位置粘贴如下代码 Sub 批量调整图片大小() ' ' 批量调整图片大小 宏 ' ' Dim n ' 图片个数 On Error Resume Next ' 忽略错误 ... -
Word精灵V9.1,包含110个排版工具,官方下载
2021-09-14 19:04:47Word精灵包含110个功能,可以批量合并文档、批量拆分文档、批量导出Word数据到Excel、批量转数据值转换成大写金额、批量插入图片、批量另存图片、批量统一图片尺寸、批量调整Word表格的格式、批量打印文件、批量... -
word批量修改图片的大小
2020-12-15 11:35:32打开需要统一设置图片尺寸的Word文档,然后按下【Alt+F11】组合键打开VBA编辑窗口。 在VBA窗口中双击左侧的“ThisDocument”打开该文档的代码编辑器,并且输入以下的内容。 Sub FormatPics() Dim TuPian As ... -
一键调整Word中所有图片的大小
2021-12-16 16:09:21这是利用AHK实现一键调整Word中所有图片的大小,方便批量打印图片。 ;----------------------------------------- ; 一键调整Word中所有图片的大小 By FeiYue ; ; 用法:为了方便图片打印,可以先限定最长的宽度或... -
Word精灵6.5版,包含100个强大的WORD功能
2021-08-10 14:36:59Word精灵包含100个功能,可以批量合并文档、批量拆分文档、批量导出Word数据到Excel、批量转数据值转换成大写金额、批量插入图片、批量另存图片、批量统一图片尺寸、批量调整Word表格的格式、批量打印文件、批量... -
vba 保存word里面的图片_1分钟批量处理100张图片,有Word在
2020-12-11 13:11:34好不容易做完了100页的活动方案,交到处女座上司那里,他告诉我:“Word里面的图片要统一尺寸,还有…必须居中!”。这不是逼人辞职吗?你早不说,现在文件做完了,你要我近百张Word图片一个个改尺寸、居中,咋不... -
统一设置word文档中的图片大小的宏。
2013-09-09 10:37:54Sub 统一图片尺寸() '仅适用于嵌入式图片 Dim oInlineShape As InlineShape For Each oInlineShape In ActiveDocument.InlineShapes With oInlineShape .LockAspectRatio = msoTrue '不锁定纵横比 -
【VBA】Word批量改变图片的大小,进行排版
2021-08-18 22:17:55本文对应的软件是word2013版。 具体步骤: 1.新建一个能够用宏的文档类型:dotm。 2.一次插入所有的图片 3.点击“宏” 在弹出的窗口中输入宏名“图片排版”; 选择该宏使用的位置,此处是选择的只... -
统一修改文件下所有图片大小 Python3
2022-04-01 11:23:43运行环境:python3 ...#提取目录下所有图片,更改尺寸后保存到另一目录 from PIL import Image import os.path import glob folder_name = "./pos/" target_name = "./test/" def convertjpg(jpgfile,ou. -
Word精灵插件 - Word增强辅助软件,批量删除空行、替换等等
2018-04-02 08:40:16统一图片尺寸 将指定路径中的所有图片统一分辨率。 转换图片格式 将指定路径中的所有图片统一转换成相同的格式。 批量插入图片 批量插入图片到当前文档中,可以选择图片名称的显示方式,以及定义图片的高度。 批量...