• 华夏北京赛车计划交流群 2018-06-21
  • 三家保险企业境外投资违规受领监管函:一个月内报送整改情况 2018-06-21
  • 集中打击整治农村赌博违法犯罪 2018-06-21
  • 别再吃了/喝了! 谁在制造朋友圈的"好心"谣言? 2018-06-21
  • 意大利大选结果出炉:前总理贝卢斯科尼领导的中右联盟获胜 2018-06-20
  • 值守成都春运最繁忙地铁站 家人借充地铁卡来与她“团年” 2018-06-20
  • 特朗普:美"愚蠢"援助巴基斯坦15年 仅收获"欺骗" 2018-06-20
  • 湖北省新全民健身示范工程全面铺开 今年预计投入2亿元 2018-06-19
  • 新人斑马线上拍婚纱照摆造型 来往车辆被"逼停" 2018-06-19
  • 酒驾男子进工地被维权居民阻拦 起冲突后将其轧死|酒驾|工地|维权 2018-06-19
  • 秦始皇帝陵博物院再创新高 2017年接待游客685万人 2018-06-19
  • “慰安妇”及领土问题引争端 韩日关系再起波澜 2018-06-18
  • 崔世安:特区政府支持澳门青年到内地实习和学习-澳门-时政频道-中工网 2018-06-18
  • 西成高铁可刷身份证乘车 2018-06-18
  • 国家卫健委:未来老人照护的主体应是社区和家庭 2018-06-18
  • word怎么批量修改图片大小比如固定长宽或按比例缩放等等

    时间:2014-03-21   作者:snow   来源:互联网

    很多新手朋友们都不知道如何批量修改图片大小,其实很简单的,本文将为大家介绍下批量修改图片的方法,有固定长宽方法、按比例缩放方法,两种方法都可以实现,不会的朋友可以收藏下以备不时之需。

    描述:每天要做表格,每个表格要插入五张照片。固定大小,一张张修改很麻烦,能有快捷的方法嘛?我想把图片大小设置成5.48cm

    解决:按alt+F11。然后在project右键插入???,然后粘贴
    Sub Macro()
    Mywidth = 4.13
    Myheigth = 5.48
    For Each iShape In ActiveDocument.InlineShapes
    iShape.Height = 28.345 * Myheigth
    iShape.Width = 28.345 * Mywidth
    Next iShape
    End Sub
    再按F5,就行了。
    其中Mywidth = 4.13,Myheigth = 5.48这里的数字你自己改大小。

    固定长宽方法:

    1、打开word,工具-宏-宏(或者直接按Alt+F8)进入宏的界面,如下面所示,输入一个宏名,宏名自己起,能记住就行!

    word批量修改图片大小教程:固定长宽+按比例缩放1

    2、宏名起好了,单击“创建”进入Visual Basic 编辑器,输入如下代码并保存

    Sub setpicsize() '设置图片大小

    Dim n '图片个数

    On Error Resume Next '忽略错误

    Forn = 1 ToActiveDocument.InlineShapes.Count 'InlineShapes类型图片

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

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

    Nextn

    Forn = 1 ToActiveDocument.Shapes.Count 'Shapes类型图片

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

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

    Nextn

    End Sub

    word批量修改图片大小教程:固定长宽+按比例缩放2

    3、返回word,工具-宏-宏(或者直接按Alt+F8),再次进入宏的界面,选择刚才编辑好的宏,并单击“运行”按钮,就可以了!(图片多时,可能会花一些时间)

    按比例缩放方法

    这部分要说的是把word中的所有图片按比例缩放!

    具体操作同上,只是代码部分稍做修改,代码如下:

    Sub setpicsize() '设置图片大小

    Dim n '图片个数

    Dimpicwidth

    Dimpicheight

    On Error Resume Next '忽略错误

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

    picheight = ActiveDocument.InlineShapes(n).Height

    picwidth = ActiveDocument.InlineShapes(n).Width

    ActiveDocument.InlineShapes(n).Height = picheight * 1.1 '设置高度为1.1倍

    ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍

    Nextn

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

    picheight = ActiveDocument.Shapes(n).Height

    picwidth = ActiveDocument.Shapes(n).Width

    ActiveDocument.Shapes(n).Height = picheight * 1.1 '设置高度为1.1倍

    ActiveDocument.Shapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍

    Nextn

    End Sub

    若还想使所有图片居中对齐,可在循环中加入下面的语句:

    ActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignment= wdAlignParagraphCenter

    ‘左对齐:wdAlignParagraphLeft

    注意:这里的Shapes(InlineShapes)不仅仅是指图片,也包含其它的,自选图形、任意多边形、OLE 对象、ActiveX 控件、图片等。

    好啦!word批量修改图片大小的方法就是这样的了,这两种方法各有千秋,大家可以根据情况自行选择哦!

    发表评论