用宏批量调整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

您可能关注的文档

最近下载