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

[MINJI]

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

[weskiter40]

ding

[lzqgj]

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

[for0012]

帮 顶

[MINJI]

谢谢大家回复，开启录制宏就无法改变图片的环绕方式（按钮是灰的），所以只好来这里麻烦大家，谢谢！

[赵4老师]

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

[filec75]

mark

[filec75]

u p

[hfCoder]

帮 顶

[MINJI]

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

[赵4老师]

.SetShapesDefaultProperties

[lzqgj]

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帮助里查到的，插入图片并设置环绕方式。
对已有的图片不知道怎么修改

[lzqgj]

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

[宋翔]

[Quote=引用 12 楼 lzqgj 的回复:]

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

正解