嵌入型图形转变四周型用代码怎么样完成？

thunor

下图是WORD中绘制的一幅图，它目前属于嵌入型，用手动方式可以将其转变成四周型，但用如下代码就不能完成。请教，应该如何改变？谢谢。

Sub 转变嵌入型为四周型()
For Each iShape In ActiveDocument.InlineShapes
iShape.ConvertToShape
Next iShape
End Sub

pipiludaxian

你这图不是嵌入图
是文本框

thunor

运行如下代码：
Sub Macro5()
On Error Resume Next
     For a = 1 To ActiveDocument.Shapes.Count
        ActiveDocument.Shapes(a).Select
        ActiveDocument.Shapes(a).WrapFormat.Type = wdWrapSquare
     Next a
End Sub

下面的代码在转变图形的时候还是不尽如人意。手工能转变的图形用代码来完成，有时完成不了。

thunor

所以这是一个嵌入图，但不是所有的嵌入图用此代码都能很好的转变，我有一个文档，有几十幅图，用此代码转变，一些能转变，一些不能转变，请教高手给出解决方案。