紧急求助，各位老大帮忙，谢谢！

ttinfo

在word中，我用以下代码加入图片：

Dim TransCo As Long Dim MyRange As Range TransCo = RGB(255, 255, 255) '要透明的颜色 Set MyRange = Selection.Range With Word.ActiveDocument.Shapes.AddPicture(FileName:="c:\draw.gif", _ LinkToFile:=False, SaveWithDocument:=True, Anchor:=MyRange) With .PictureFormat .TransparentBackground = msoTrue .TransparencyColor = TransCo End With .Fill.Visible = msoFalse .WrapFormat.Type = wdWrapNone End With

问题：加入的图片都在这一段的开头，有没有办法获取当前光标所在位置的段的位置？因为Shapes.AddPicture.top属性是相对于Anchor的，如果能够获取段的top，那就能用鼠标位置的纵向值减去段的top值；而不用Anchor属性的话，图片都加到了第一页。

哪位老大友好的解决办法，请赐教，在这里先谢谢了！

ttinfo

哪位能给点意见？

守柔

加入的图片都在这一段的开头，有没有办法获取当前光标所在位置的段的位置?

请用INFORMATION属性获得.

http://club.excelhome.net/viewthread.php?tid=69510