Word自己做的图形，导出后，在VBA中不能再次插入

yuyvtul

Word自己做的图形，导出后，在VBA中不能再次插入，Word的BUG?
①在Word中随意做一个组合图形，但要含文本框，复制。
②视图——工具栏——任务窗格——剪贴画——管理剪辑，选中“收藏夹，粘贴。
③插入——图片——剪贴画，可插入此图片
④但是，若将③录制一个宏就有问题：在文档的第一页运行宏可能正常，在后面几页特别是最后一页运行宏肯定不行。
实际上，此图形保存在C:\Documents and Settings\用户名\My Documents\My Pictures\Microsoft 剪辑管理器\中，用插入图片方式也有此问题。
若嫌麻烦，附件中有录制的宏和Word制作的图片。
ScwCokwi.rar (4.52 KB, 下载次数: 12)

2006-7-12 23:26 上传

点击文件名下载附件
Word自己做的图形，导出后，在VBA中不能再次插入

[此贴子已经被作者于2006-7-12 23:26:40编辑过]

konggs

顶上来。老大。看看。有点麻烦。

守柔

我试了一下，确实有问题，与当前页无关。

变通一下，请楼主测试：

Sub Example()
    ActiveDocument.InlineShapes.AddPicture Range:=Selection.Range, FileName:= _
                                           "D:\TEST\TEST.png"
End Sub

如果可行，再分析原因。

yuyvtul

谢谢，这个办法我用过了，刚才又测试了。
插入没问题，但不符合要求：本来是组合的高清晰度图片，可以分解，但用这种方法得到的是不能分解的低分辨率图片，相当于在资源管理器中复制文件再在Word中插入的效果。
另外，有的电脑中不能在第一页插入，有的在第一页插入只是偶尔不行。