请教，在word中插入图片，怎么控制多幅图片的位置？

[南方的他]

请教，在word中插入图片时，现在有多幅图片，我用odoc.AddPicture方法加入的图片放在一起很乱，请问，如何控制多幅图片的位置，或者让他们不在同一页上呢？
谢谢！

[vansoft]

先定位光标的位置。
因为插入的东西都是在光标的位置上。

[techgopher]

你在addpicture时可以指定位置，例如：

Dim dblTop As Double, objShape As Shape
dblTop = 0

Set objShape = ActiveDocument.Shapes.addpicture(FileName:="pic1.jpg", top:=dblTop)
dblTop = objShape.Height + dblTop

'add the second picture
Set objShape = ActiveDocument.Shapes.addpicture(FileName:="pic2.jpg", top:=dblTop)
dblTop = objShape.Height + dblTop
...

[南方的他]

我想在一段文字之后插入图片,接着再有一段文字,再插入图片,这种情况怎么处理呢?
------------------------------------
是时候了,
------------------------------------
体验速度,体验CSDN新版论坛助手:http://community.csdn.net/Expert/TopicView.asp?id=3108679

[南方的他]

怎么没人理我了!

[techgopher]

那你直接插入嵌入式图片好了

selection.inlineshapes.addpicture "图片1.jpg"
selection.insertafter "文本1"
selection.inlineshapes.addpicture "图片2.jpg"
selection.insertafter "文本2"

具体做起来需要在每个操作前确认selection（当前光标的位置）是希望的，否则需要通过selection.collapse 或者selection.move* 来移动光标。