VBA如何修改Word中图片的环绕方式？

Question

就是语句将环绕方式从“嵌入型”改为“紧密型”,谢谢！

Answer 1

或者统一的将Word默认的环绕方式一律改为“紧密型”，谢谢！

Answer 2

试着录一段宏改变环绕方式，看看代码就行了。学习VBA主要靠录制宏

Answer 3

试试这个
.WrapFormat.AllowOverlap = True
.WrapFormat.Side = wdWrapBoth
.WrapFormat.Type = wdWrapNone

Answer 4

Set myOval = _
    ActiveDocument.Shapes.AddShape(msoShapeOval, 36, 36, 100, 35)
With myOval.WrapFormat
    .Type = wdWrapSquare
    .Side = wdWrapBoth
    .DistanceTop = InchesToPoints(0.1)
    .DistanceBottom = InchesToPoints(0.1)
    .DistanceLeft = InchesToPoints(0.1)
    .DistanceRight = InchesToPoints(0.1)
End With
VBA帮助里查到的，插入图片并设置环绕方式。
对已有的图片不知道怎么修改

Answer 5

ActiveDocument.InlineShapes.Item(1).ConvertToShape
ActiveDocument.Shapes.Item(1).WrapFormat.Type = wdWrapTight
先将嵌入型转化，再设置环绕方式。