2024年3月11日发(作者：)

怎样批量调整word 图片大小

悬赏分：0 - 解决时间：2009-6-4 20:57

怎样才能把word中所有图片的大小调整为原来的50%？（是空间大小？

提问者： cp3win - 二级

最佳答案

我知道通过宏可以批量完成一个word中所有图片大小的修改，在次与大家共享，也希望可

以给大家参考。

1、Alt+F8调出宏编辑窗口

2、点创建按钮，创建新宏，setpicsize,内容如下：

Sub setpicsize()

'设置图片大小

' 宏在 2008-3-31 由 hero_thm 录制

'

Dim j '计数图片个数

For j = 1 To '文件中图片总个数，图片类型为

inlineshapes

Shapes(j).Height = 362 '设置高度

Shapes(j).Width = 481.87 '设置宽度

Next j

End Sub

3、保存退出，点运行setpicsize宏，word中所有的图片统一调整为宽17cm，高12.77cm

Sub setpicsize()

'设置图片大小

' 宏在 2008-3-31 由 hero_thm 录制

'

Dim j '计数图片个数

For j = 1 To '文件中图片总个数，图片类型为

inlineshapes

If Shapes(j).Width > 480 Then

Shapes(j).Width = 400 '设置宽度

End If

Next j

End Sub

11

计算方法：图片成品尺寸*28.34（宽和高都是28.34）

粮科所图片大小宏

宏名：setpicsize

Sub setpicsize()

'设置图片大小

' 宏在 2008-3-31 由 hero_thm 录制

'

Dim j '计数图片个数

For j = 1 To '文件中图片

总个数，图片类型为inlineshapes

Shapes(j).Height = 300.4 '设置高度

Shapes(j).Width = 393.93 '设置宽度

Next j

End Sub

教你如何用WORD文档 (2012-06-27 192246)转载▼

标签： 杂谈

1. 问：WORD 里边怎样设置每页不同的页眉？如何使不同的章节显示的页眉不同？

答：分节，每节可以设置不同的页眉。文件――页面设置――版式――页眉和页脚――首页

不同。

2. 问：请问word 中怎样让每一章用不同的页眉？怎么我现在只能用一个页眉，一改就全

部改了？

答：在插入分隔符里，选插入分节符，可以选连续的那个，然后下一页改页眉前，按一下“同

前”钮，再做的改动就不影响前面的了。简言之，分节符使得它们独立了。这个工具栏上的

“同前”按钮就显示在工具栏上，不过是图标的形式，把光标移到上面就显示出”同前“两

个字来。

3. 问：如何合并两个WORD 文档，不同的页眉需要先写两个文件，然后合并，如何做？

答：页眉设置中，选择奇偶页不同与前不同等选项。

4. 问：WORD 编辑页眉设置，如何实现奇偶页不同 比如：单页浙江大学学位论文，这一

个容易设；双页：（每章标题），这一个有什么技巧啊？