精华内容
下载资源
问答
  • word统一设置图片尺寸
    千次阅读
    2022-04-17 14:47:15

    在word中调节图片的统一大小方法:

    1、我们先调节好一张图片的大小;

    2、选中其他图片,按F4快捷键即可统一图片大小。

    更多相关内容
  • Office教程:word怎样统一图片大小尺寸.docx
  • word中如何将大量图片批处理统一尺寸大小
  • word宏处理,批量图片大小设置,对齐方式

    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使用宏定义来统一设置图片大小

    展开全文
  • Sub 设置图片尺寸() '设置图片尺寸 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

    展开全文
  • 1.首先选择一张图片,点击格式菜单,找到大小模块的下角标,点击弹出布局大小的设置。 2.然后将缩放部分的锁定...如果需要保持原尺寸的纵横比,去掉的勾选处可以勾选上,就会以缩放模块的宽高百分比来缩放图片。 ...

    1.首先选择一张图片,点击格式菜单,找到大小模块的下角标,点击弹出布局大小的设置。

    2.然后将缩放部分的 锁定纵横比以及相对原始图片大小的勾选去掉,此处可以按照需求调节高德以及宽度的值,点击确定按钮。

    3.确定宽高,点击确定按钮后,参照的图片大小已经设置完毕。

    4.点击需要改变大小的其他图片,点击F4即可,此时图片大小会产生变化,会改变宽高的值,与参照图片宽高完全相同。

    如果需要保持原尺寸的纵横比,去掉的勾选处可以勾选上,就会以缩放模块的宽高百分比来缩放图片。

    展开全文
  • 1. 首先手动拖拽将图片调到需要的格式,点击图片在格式选项中查看图片的宽高 ...Sub 图片格式统一() ' ' 图片格式统一 宏 ' ' 'Myheigth = 12 Mywidth = 14 On Error Resume Next '忽略错误 For ...
  • 当你的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也不影响,像素更方便) ...
  • word文档是文字、排版什么的都做完了,只想批量调一下图片尺寸。发现无论是word和还是wps都无法用快捷键选中所有图片。后面用宏解决了批量修改的问题。
  • word中批量调整图片大小的方法

    千次阅读 2021-04-10 22:12:42
    经常将PPT转换为pdf在web上逐页进行展示,在该页面上不能复制、也不能另存为,为了打破这种限制,可通过页面缩略图将pdf的每一个页面进行批量选择复制,再粘贴到word中,由于图片数量多,大小和word窗口不匹配,一张...
  • word批量调整图片大小:

    千次阅读 2022-02-28 11:06:09
    1)选中一个图片 > 在顶部最右菜单栏 "图片工具"的"格式"中修改好图片大小 2)按住F4键 > 鼠标左键依次点击其它图片
  • 如何批量把照片设置统一尺寸?今天小编就为大家介绍这个方法的详细操作步骤,感兴趣的小伙伴就请继续往下学习吧!
  • Word 批量处理插入图片大小 使用Word宏进行统一更改图片大小。 相关代码及操作。
  • 批量修改Word图片的大小
  • (1)设置固定大小n厘米 Sub resetImgSize() Dim iShape As InlineShape For Each iShape In ActiveDocument.InlineShapes iShape.LockAspectRatio = msoTrue iShape.Height = CentimetersToPoints(n) iShape.Width...
  • 写文章的过程中,一般加入一些图片会使得文章更加的生动活泼,达到图文并茂的效果。然而插入的图片往往是大小不一的,导致整篇文章毫无美感可言。今天小编教大家如何调整图片大小的方法,使你的文章整洁美观: 第一...
  • 使用宏批量修改word图片大小

    万次阅读 2018-02-07 11:49:09
    word中使用宏修改图片大小,图片大小相同 1、打开word中视图选项卡,选择“宏”->“输入宏名”->“创建” 2、编辑宏 输入下面代码 Sub FormatPics()  Dim iSha As InlineShape  For Each iSha In ...
  • 本篇文章利用Word自带的宏,帮助有需要的朋友解决Word图片排版问题。只包含两项简单功能,代码1:按照第一张图片尺寸对文档内所有图片进行修改;代码2:按照给定像素批量裁剪文档内所有图片
  • word批量调整图片大小--宏

    千次阅读 2021-02-18 00:32:45
    word中选择宏,查看宏或者创建宏,不同版本的略有区别 输入宏名称,默认也可 在相应位置粘贴如下代码 Sub 批量调整图片大小() ' ' 批量调整图片大小 宏 ' ' Dim n ' 图片个数 On Error Resume Next ' 忽略错误 ...
  • Word精灵包含110个功能,可以批量合并文档、批量拆分文档、批量导出Word数据到Excel、批量转数据值转换成大写金额、批量插入图片、批量另存图片、批量统一图片尺寸、批量调整Word表格的格式、批量打印文件、批量...
  • 打开需要统一设置图片尺寸Word文档,然后按下【Alt+F11】组合键打开VBA编辑窗口。 在VBA窗口中双击左侧的“ThisDocument”打开该文档的代码编辑器,并且输入以下的内容。 Sub FormatPics() Dim TuPian As ...
  • 一键调整Word中所有图片的大小

    千次阅读 2021-12-16 16:09:21
    这是利用AHK实现一键调整Word中所有图片的大小,方便批量打印图片。 ;----------------------------------------- ; 一键调整Word中所有图片的大小 By FeiYue ; ; 用法:为了方便图片打印,可以先限定最长的宽度或...
  • Word精灵包含100个功能,可以批量合并文档、批量拆分文档、批量导出Word数据到Excel、批量转数据值转换成大写金额、批量插入图片、批量另存图片、批量统一图片尺寸、批量调整Word表格的格式、批量打印文件、批量...
  • 好不容易做完了100页的活动方案,交到处女座上司那里,他告诉我:“Word里面的图片统一尺寸,还有…必须居中!”。这不是逼人辞职吗?你早不说,现在文件做完了,你要我近百张Word图片一个个改尺寸、居中,咋不...
  • Sub 统一图片尺寸() '仅适用于嵌入式图片  Dim oInlineShape As InlineShape  For Each oInlineShape In ActiveDocument.InlineShapes  With oInlineShape  .LockAspectRatio = msoTrue '不锁定纵横比  
  • 本文对应的软件是word2013版。 具体步骤: 1.新建一个能够用宏的文档类型:dotm。 2.一次插入所有的图片 3.点击“宏” 在弹出的窗口中输入宏名“图片排版”; 选择该宏使用的位置,此处是选择的只...
  • 运行环境:python3 ...#提取目录下所有图片,更改尺寸后保存到另一目录 from PIL import Image import os.path import glob folder_name = "./pos/" target_name = "./test/" def convertjpg(jpgfile,ou.
  • 统一图片尺寸 将指定路径中的所有图片统一分辨率。 转换图片格式 将指定路径中的所有图片统一转换成相同的格式。 批量插入图片 批量插入图片到当前文档中,可以选择图片名称的显示方式,以及定义图片的高度。 批量...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 7,647
精华内容 3,058
关键字:

word统一设置图片尺寸