admin 管理员组文章数量: 1184232
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， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论