word 批量设置图片大小
2010-03-06 17:27
447 查看
word批量修改图片大小——固定长宽篇
方法一:
这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽!1、打开word,工具-宏-宏(或者直接按Alt+F8)进入宏的
界面,如下面所示,输入一个宏名,宏名自己起,能记住就行!
![](http://hi.csdn.net/attachment/201003/6/49723_1267867966SK8D.png)
2、宏名起好了,单击“创建”进入Visual Basic 编辑器,输入如下代码并保存
Sub
setpicsize() '设置图片大小
Dim
n
'
图片个数
On Error Resume Next '
忽略错误
For
n = 1 To
ActiveDocument.InlineShapes.Count 'InlineShapes
类型图片
ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300px
Next
n
For
n
= 1 To
ActiveDocument.Shapes.Count 'Shapes
类型图片
ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px
Next
n
End Sub
3、返回word,工具-宏-宏(或者直接按Alt+F8),再次进入宏的界面,选择刚才编辑好的宏,并单击“运行”按钮,就可以了!(图片多时,
可能会花一些时间)
方法二:
1、在word中按alt+f11组合键,进入VBA模式2、在左边的工程资源管理器中找到你的word文档,在其上右键/添加/模块
3、把下面代码复制,粘贴进去.
4、更改数值, 改一下宽度和高度数值(10),点运行(类似播放按钮.)或f5,即可设置文档中全部图片
Sub Macro()
Mywidth=10 ‘10为图片宽度(厘米)
Myheigth=10 ‘10为图片高度(厘米)
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.345 * Myheigth
iShape.Width = 28.345 * Mywidth
Next iShape
End Sub
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中批量设置全部图片大小
- word批量修改图片大小
- 如何设置Matlab输出到Word中图片的大小
- 如何设置Matlab输出到Word中图片的大小
- word中批量修改图片大小
- 设置批量商品优惠、如何修改ZenCart产品显示图片的大小
- word批量修改图片大小(宏)
- 操作Word对象----在指定位置插入图片并设置大小(原)
- 文章中所有图片width大小批量设置方法
- 统一设置word文档中的图片大小的宏。
- 操作Word对象----在指定位置插入图片并设置大小
- [word]用Word2007查找和替换功能批量设置图片位置
- 使用宏的方式, 批量修改word中图片的大小
- C# 设置Word文档中图片的大小
- 怎样批量调整word 图片大小?
- 基于jquery的文章中所有图片width大小批量设置方法
- 批量调整word 图片大小
- word 批量修改文档中的图片大小
- 使用宏对word中的图片批量调整大小
- word文档如何批量修改图片大小