最新文章专题视频专题问答1问答10问答100问答1000问答2000关键字专题1关键字专题50关键字专题500关键字专题1500TAG最新视频文章推荐1 推荐3 推荐5 推荐7 推荐9 推荐11 推荐13 推荐15 推荐17 推荐19 推荐21 推荐23 推荐25 推荐27 推荐29 推荐31 推荐33 推荐35 推荐37视频文章20视频文章30视频文章40视频文章50视频文章60 视频文章70视频文章80视频文章90视频文章100视频文章120视频文章140 视频2关键字专题关键字专题tag2tag3文章专题文章专题2文章索引1文章索引2文章索引3文章索引4文章索引5123456789101112131415文章专题3
当前位置: 首页 - 正文

批量处理word文档图片大小

来源:动视网 责编:小OO 时间:2025-09-27 21:01:19
文档

批量处理word文档图片大小

声明:我下面要说的“批量修改word里的图片大小”的方法需要使用到宏,所以~~最好对VB有所了解!当然~~这不是必需的,只要跟着我的图文教程走,不知道什么是宏,不知道什么是VB也可以!word批量修改图片大小——固定长宽篇这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽!1、打开word,工具-宏-宏(或者直接按Alt+F8)进入宏的界面,如下面所示,输入一个宏名,宏名自己起,能记住就行!2、宏名起好了,单击“创建”进入VisualBasic编辑器,输入如下代码并保存Subse
推荐度:
导读声明:我下面要说的“批量修改word里的图片大小”的方法需要使用到宏,所以~~最好对VB有所了解!当然~~这不是必需的,只要跟着我的图文教程走,不知道什么是宏,不知道什么是VB也可以!word批量修改图片大小——固定长宽篇这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽!1、打开word,工具-宏-宏(或者直接按Alt+F8)进入宏的界面,如下面所示,输入一个宏名,宏名自己起,能记住就行!2、宏名起好了,单击“创建”进入VisualBasic编辑器,输入如下代码并保存Subse
声明:我下面要说的“批量修改word里的图片大小”的方法需要使用到宏,所以~~最好对VB有所了解!当然~~这不是必需的,只要跟着我的图文教程走,不知道什么是宏,不知道什么是VB也可以!

  word批量修改图片大小——固定长宽篇

  这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽!

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

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

Sub setpicsize() '设置图片大小 

  Dim n '图片个数 

  On Error Resume Next '忽略错误 

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

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

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

  Next n 

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

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

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

  Next n 

  End Sub 

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

  word批量修改图片大小——按比例缩放篇

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

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

Sub setpicsize() '设置图片大小 

  Dim n '图片个数 

  Dim picwidth 

  Dim picheight 

  On Error Resume Next '忽略错误 

  For n = 1 To ActiveDocument.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倍 

  Next n 

  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倍 

  Next n 

  End Sub 

  虽然我的代码不是好代码,但确实能解决我的问题,瞬间就把word文档里所有图片放大了1.1倍,各种公式、坐标轴都比原来清楚多了,可以拿去打印出来了,呼呼!

文档

批量处理word文档图片大小

声明:我下面要说的“批量修改word里的图片大小”的方法需要使用到宏,所以~~最好对VB有所了解!当然~~这不是必需的,只要跟着我的图文教程走,不知道什么是宏,不知道什么是VB也可以!word批量修改图片大小——固定长宽篇这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽!1、打开word,工具-宏-宏(或者直接按Alt+F8)进入宏的界面,如下面所示,输入一个宏名,宏名自己起,能记住就行!2、宏名起好了,单击“创建”进入VisualBasic编辑器,输入如下代码并保存Subse
推荐度:
  • 热门焦点

最新推荐

猜你喜欢

热门推荐

专题
Top