• 追杀国民党升级 蔡英文喜不自胜"这一刻终于来了" 2018-08-19
  • 近4000款网游遭公安查处 代表委员呼吁分级势在必行 2018-08-19
  • 怒江傈僳族自治州发放中职教育农村学生生活补助近838万元 2018-08-19
  • 公共场所禁烟第一案今开庭 2018-08-18
  • 《妈妈咪鸭》创海外预售纪录 2018-08-18
  • 涉警无小事勿轻言放过 2018-08-18
  • “功夫仓鼠”恶斗 尘土飞扬似动作大片 2018-08-17
  • 自主品牌传祺GS4拿下J.D power五冠 2018-08-17
  • 将个性发挥到极致 实拍甲壳虫乐动橙版 2018-08-17
  • 青岛市委常委会召开扩大会议 2018-08-17
  • 爱尔兰艺术瑰宝《大河之舞》将在广州收官 2018-08-16
  • 渝中书记黄玉林:认真抓好安全稳定各项工作 2018-08-15
  • 沈阳市经贸代表团出访德国瑞典取得丰硕成果 2018-08-15
  • 普洱:野象进村民家吃粮食搞破坏 2018-08-15
  • 市委常委会召开扩大会议 传达贯彻党的十九届三中全会精神陈敏尔主持并讲话 2018-08-15
  • 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批量修改图片大小的方法就是这样的了,这两种方法各有千秋,大家可以根据情况自行选择哦!

    发表评论