欢迎访问融科网络!我们专注于郑州网站建设郑州网站制作郑州网站设计郑州做网站等相关服务!
营销之道 干货分享
了解企业新动态,分享前沿的营销推广干货,成长路上,我们携手同行

电脑知识

怎么在word中批量修改图片大小 Word中如何批量修改图片固定大小

标签: 作者:融科网络 | 点击:
14

Sep
2019

导语
怎么在word中批量修改图片大小 Word中如何批量修改图片固定大小
 

怎么在word中批量修改图片大小 Word中如何批量修改图片固定大小。相信很多人都使用过PC中的word文档功能,因为这对于很多人来说都会经常用到的,特别的具有实用性。


  解决:按alt+F11。然后在project右键插入模块,然后粘贴Sub Macro()


  Mywidth = 4.13


  Myheigth = 5.48


  For Each iShape In ActiveDocument.InlineShapesiShape.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中批量修改图片大小 Word中如何批量修改图片固定大小


  \


  2、宏名起好了,单击“创建”进入Visual Basic 编辑器,输入如下代码并保存Sub setpicsize() '设置图片大小


  Dim n '图片个数


  On Error Resume Next '忽略错误


  Forn = 1 ToActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400pxActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300pxNextn


  Forn = 1 ToActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400pxActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300pxNextn


  End Sub


怎么在word中批量修改图片大小 Word中如何批量修改图片固定大小


  \


  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).Heightpicwidth = ActiveDocument.InlineShapes(n).WidthActiveDocument.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).Heightpicwidth = ActiveDocument.Shapes(n).WidthActiveDocument.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批量修改图片大小的办法就是这样的了,这两种办法各有千秋,大家可以根据情况自行选择哦!

郑州融科网络专注于企业网站建设、网站制作、高端网站设计,郑州荥阳、上街做网站就找融科网络!
本文章网址:http://www.ppssdd.com/pc/3563.html。转载请保留出处,谢谢合作!

全网(营销型+响应式)专业定制

快速搭建高询盘+营销独立站

微信扫一扫 添加微信

推荐分享,免费SEO诊断

扫码加好友,即送价值1880元的SEO优化教程

(网站没排名,轻松让关键词上首页!专注H5企业建站+网站优化推广)

上一篇:word文档如何添加不同页眉页脚 word 中怎样设置不同的页眉页脚的办法

下一篇:PCword文档损坏如何修复 win7系统word文档损坏怎么修复

  • 网站建设咨询
  • 网站建设案例
建站流程
  • 网站需
    求分析
  • 网站策
    划方案
  • 页面风
    格设计
  • 程序设
    计研发
  • 资料录
    入优化
  • 确认交
    付使用
  • 后续跟
    踪服务
  • 151-3895-5886
  • 品牌网站建设定制
  • 营销型网站建设定制