WORD图片版式转换宏VBA

Option Explicit

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 ActiveDocument.InlineShapes

Set oShape = oShape.ConvertToShape

With oShape

Select Case shapeType

Case 0, 1

.WrapFormat.Type = shapeType

Case 3

.WrapFormat.Type = 3

.ZOrder 5

Case 4

.WrapFormat.Type = 3

.ZOrder 4

Case Else

Exit Sub

End Select

.WrapFormat.AllowOverlap = False '不允许重叠

End With

Next

Else

For Each oShape In ActiveDocument.Shapes

oShape.ConvertToInlineShape

Next

End If

End Sub