用宏批量调整word中图片版式大小方向.docx

本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己完全接受本站规则且自行承担所有风险，本站不退款、不进行额外附加服务；如果您已付费下载过本站文档，您可以点击这里二次下载

文档介绍

SANY标准化小组 #QS8QHH-HHGX8Q8-GNHHJ8-HHMHGN# SANY标准化小组 #QS8QHH-HHGX8Q8-GNHHJ8-HHMHGN#

用宏批量调整word中图片版式大小方向 TOC \o "1-3" \h \z \u Sub 图片对齐() 1 Sub 图片大小() 1 Sub 浮于文字上方() 3 Sub 浮于文字上方() 3 Sub 连续() 4 Sub 版式转换() 4

Sub 图片对齐() = False '关闭屏幕更新

Dim n On Error Resume Next (n).Select

orizontalPosition = _ wdRelativeHorizontalPositionMargin wdRelativeVerticalPositionMargin Next = True '恢复屏幕更新

End Sub

Sub 图片大小()

On Error Resume Next

Dim mywidth

Dim myheight = False '关闭屏幕更新

mywidth = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,宽度根据输入的高度数值自动调整；", Title:="请输入图片宽度", Default:="0")) *

myheight = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,高度根据输入的宽度数值自动调整；", Title:="请输入图片高度", Default:="0")) *

'调整嵌入式图形

Dim p

文档介绍