admin 管理员组

文章数量: 1087139


2024年3月27日发(作者： 在数学中怎么读)

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

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

1、打开WORD文档，alt+F8跳出宏制作编辑窗口。

2、点击创建窗口按钮 ，制作宏，取名为“图片统一大小”。

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

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

Sub 图片统一大小()

On Error Resume Next

Dim mywidth

Dim myheight

Updating = 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 Shapes

If mywidth = "0" Then

= myheight

idth = eight

ElseIf myheight = "0" Then

= mywidth

eight = idth

Else

= mywidth

= myheight

End If

Next

'调整浮动式图形

Dim tu As Shape

For Each tu In

If mywidth = "0" Then

= myheight

ElseIf myheight = "0" Then

= mywidth

Else

pectRatio = msoFalse

= mywidth

= myheight

End If

Next

Updating = True '恢复屏幕更新

End Sub

4、ctrl+s 保存，然后点击工具栏中的运行这个刚刚创建的宏就可以了！


本文标签： 输入 图片 高度 宽度 点击

版权声明：本文标题：复制网页到word后,重新统一设置图片大小的方法 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/p/1711481314a596261.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。