复制网页到word后,重新统一设置图片大小的方法

可以同时指定宽高，也可以设置宽或高中的一项，另一项按比例自动调节。

1

、打开

WORD

文档，

alt+F8

跳出宏制作编辑窗口。

2

、点击创建窗口按钮

，制作宏，取名为“图片统一大小”

。

3

、宏代码。

（功能：重置所有图片为初始大小，然后手动输入图高度，宽度，重新设置所有

图大小。注意：宏代码为下面所有内容）

Sub 

图片统一大小

() 

On Error Resume Next 

Dim mywidth 

Dim myheight 

Application.ScreenUpdating = False '

关闭屏幕更新

mywidth 

= 

Val(InputBox(Prompt:="

单位为厘米

(cm);

如果输入为

0

，则图片保持原始纵横比

,

宽度根据输入的高度数值自动调整；

", Title:="

请输入图片宽度

", Default:="0")) * 28.35 

myheight 

= 

Val(InputBox(Prompt:="

单位为厘米

(cm);

如果输入为

0

，则图片保持原始纵横比

,

高度根据输入的宽度数值自动调整；

", Title:="

请输入图片高度

", Default:="0")) * 28.35 

'------------------------------------------------------------------ 

'

调整嵌入式图形

Dim pic As InlineShape 

For Each pic In ActiveDocument.InlineShapes 

If mywidth = "0" Then 

pic.Height = myheight 

pic.ScaleWidth = pic.ScaleHeight 

ElseIf myheight = "0" Then 

pic.Width = mywidth 

pic.ScaleHeight = pic.ScaleWidth 

Else 

pic.Width = mywidth 

pic.Height = myheight 

End If 

Next 

'

调整浮动式图形

Dim tu As Shape 

For Each tu In ActiveDocument.Shapes 

If mywidth = "0" Then 

tu.Height = myheight 

ElseIf myheight = "0" Then 

tu.Width = mywidth 

Else 

tu.LockAspectRatio = msoFalse 

tu.Width = mywidth 

tu.Height = myheight 

End If