[求助]怎样用VBA将文档中所有图都转成和原图高宽相同的增强型图元格式？

ssq1109

在使用WORD中发现，有些在WORD中绘的图，尤其是科技插图，会在图上加些文字，当将其组合后，再通过控制点缩小时，莫名其妙地将一些文字的笔划缩掉了。我偶然用了一个方法发现可以解决这类问题，即将此图先“剪切”后再“选择性粘贴”成“增强型图元文件”，这样得到的图再无论怎么缩放也没有关系，且打印出来也非常清晰。 因此，我希望采用VBA将文档中所有的图，甚至包括文本框（即全部InlineShape和Shape对象），不论原图是什么格式，都一律转换成“增强型图元文件（即EMF）”，但要求只转换格式，一定要保证和原图的尺寸（即原图的高度和宽度）相同，也不改变此图在文档中版式的文字环绕方式（指嵌入式、四周型、浮于文字上等）。 [em09]

[此贴子已经被作者于2006-4-29 11:52:04编辑过]