《复制网页到word后,重新统一设置图片大小的方法.docx》由会员分享，可在线阅读，更多相关《复制网页到word后,重新统一设置图片大小的方法.docx（2页珍藏版）》请在三一办公上搜索。
1、复制网页到word后,重新统一设置图片大小的方法复制网页到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，则图片保持原
2、始纵横比,宽度根据输入的高度数值自动调整；, 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.Scal
3、eWidth = 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 Next Application.ScreenUpdating = True 恢复屏幕更新 End Sub 4、ctrl+s 保存，然后点击工具栏中的运行这个刚刚创建的宏就可以了！
