用宏批量调整中图片版式大小方向
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
用宏批量调整中图片版
式大小方向
集团标准化工作小组 #Q8QGGQT-GX8G08Q8-GNQGJ8-MHHGN#
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 pic As InlineShape
For Each pic In
If mywidth = "0" Then
= myheight
=
ElseIf myheight = "0" Then
= mywidth
=
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
= msoFalse
= mywidth
= myheight
End If
Next
= True '恢复屏幕更新
End Sub
Sub 浮于文字上方()
Dim oShape As Variant, tu As Shape, i
= False '关闭屏幕更新
On Error Resume Next
'调整嵌入图形为浮于文字上方,并旋转90度 For Each oShape In
Set oShape =
(i).Select
With oShape
. = 3' (去除.Zorder行. = shapeType四周形. = wdWrapTight紧密形改为.ConvertToInlineShape嵌入形)
.ZOrder 4 '4浮于文字上方 5衬于下方
.Rotation = -90#
End With
Next
'调整其它图形为浮于文字上方,并旋转90度
For Each tu In
(i).Select
With tu
. = 3 ' (去除.Zorder行. = shapeType四周形. = wdWrapTight紧密形改为.ConvertToInlineShape嵌入形)
.ZOrder 4 '4浮于文字上方 5衬于下方
.Rotation = -90#
End With
Next
= True '恢复屏幕更新
End Sub
Sub 浮于文字上方()
Dim oShape As Variant, i
= False '关闭屏幕更新
On Error Resume Next
For Each oShape In
Set oShape =
(i).Select '选中图片
With oShape
.ZOrder 4 '选中图片版式调为浮于文字上方
.Rotation = -90# '选中图片向左旋转90度
End With
Next
= True '关闭屏幕更新
End Sub
Sub 连续()
Call 浮于文字上方
Call 图片大小
Call 图片对齐
End Sub
Sub 版式转换()
Dim oShape As Variant, shapeType As WdWrapType
On Error Resume Next
If MsgBox("Y将图片由嵌入式转为浮动式,N将图片由浮动式转为嵌入式", 68) = 6 Then
shapeType = Val(InputBox(Prompt:="请输入图片版式:0=四周型,1=紧密型, " & vbLf & _
"3=衬于文字下方,4=浮于文字上方", Default:=0))
For Each oShape In
Set oShape =
With oShape
Select Case shapeType
Case 0, 1
. = shapeType
Case 3
. = 3
.ZOrder 5
Case 4
. = 3
.ZOrder 4
Case Else
Exit Sub
End Select
. = False
End With
Next
Else
For Each oShape In
Next
End If