插入图片的问题

mrsxw2004

守柔，我曾经问过你如何将一个图片插在文件的末尾，你告诉我用：

Sub Example() Dim MyRange As Range, MyShape As Shape With ActiveDocument Set MyRange = .Range(.Content.End - 1, .Content.End - 1) Set MyShape = .Shapes.AddPicture(FileName:= _ "C:\Documents and Settings\My Documents\My Pictures\2.bmp", Anchor:=MyRange) End With End Sub

这个方法实现，但我现在在个别文档中执行时出现了word死机的现象，全是在执行AddPicture时出现的,经过测试我发现是Anchor:=MyRange这个参数导致的，去掉以后就可以了，但是图片从此不能置为末尾

守柔

楼主这样的说法,欠缺必要的科学精神,您应该把WORD死机的原因附上来,当WORD出现意外错误(无法解决)时,会有详细的错误报告,会提示在哪个方面(模块)出现错误,请截图以示之.

另,如果是使用循环法插入图片时,请更新MYRANGE对象.

mrsxw2004

就是在这个文件中使用出现了这个问题

mrsxw2004

文件太大，传不上了，算了我已经用其他方法实现，我就是想知道为什么出现这个情况，麻烦您了

[em09]