[求助]怎样用VBA将文本框和插入的图组合在一起？

ssq1109

附件中的插图其实并非都是在Word中绘制的，据我分析，数轴和坐标都是用几何画板绘制后插入Word的，但标记的文本是在Word中用文本框做成的，如何将它们组合成一个整体叫呢？最好用VBA完成。

I0bpaA1S.rar (28.54 KB, 下载次数: 81)

2007-12-8 17:33 上传

点击文件名下载附件
[求助]怎样用VBA将文本框和插入的图组合在一起？

守柔

由于图形之间的结构比较松散（比如，不是锁定在同一个段落标记处），另外，有些图形为嵌入式，有些图形为浮动型，并且有些图片已经组合了，感觉很难找出规律。

即使用VBA勉强凑合，结果仍需验证，建议手工处理吧。

ssq1109

QUOTE:

以下是引用守柔在2007-12-11 5:44:16的发言：

由于图形之间的结构比较松散（比如，不是锁定在同一个段落标记处），另外，有些图形为嵌入式，有些图形为浮动型，并且有些图片已经组合了，感觉很难找出规律。

即使用VBA勉强凑合，结果仍需验证，建议手工处理吧。

非常感谢守大侠的回复！

我也的确是用手工方法处理的，附件中的文档便是处理结果。方法是先选中有图的区域，然后剪切掉选中的图，再选择性粘贴成“增强图元格式”到原位，但不知为何有的图会发生一些变化（如第2个图中的竖线的坐标发生偏移）。

由于我时常接触到这样的文档，总想找一个批处理方式。

RvrRzuFE.rar (51.75 KB, 下载次数: 105)

2007-12-11 16:34 上传

点击文件名下载附件

[此贴子已经被作者于2007-12-11 16:34:50编辑过]

守柔

QUOTE:

以下是引用ssq1109在2007-12-11 16:33:46的发言：

非常感谢守大侠的回复！

我也的确是用手工方法处理的，附件中的文档便是处理结果。方法是先选中有图的区域，然后剪切掉选中的图，再选择性粘贴成“增强图元格式”到原位，但不知为何有的图会发生一些变化（如第2个图中的竖线的坐标发生偏移）。

由于我时常接触到这样的文档，总想找一个批处理方式。

以图形方式选择性粘贴时出现偏移或者大小发生改变是正常的，最简单的例子复制文字或者表格后选择性粘贴图片时，外观变化比较大。

能否考虑这样，你下载一个截图软件，如（HyperSnap-DX)，然后在隐藏编辑标记时截图覆盖原图形位置，也许更简单些。

ssq1109

QUOTE:

以下是引用守柔在2007-12-12 6:26:45的发言：

以图形方式选择性粘贴时出现偏移或者大小发生改变是正常的，最简单的例子复制文字或者表格后选择性粘贴图片时，外观变化比较大。

能否考虑这样，你下载一个截图软件，如（HyperSnap-DX)，然后在隐藏编辑标记时截图覆盖原图形位置，也许更简单些。

谢谢守版主的回复和建议！

我的电脑中装的是SnagIt，大概和您推荐的软件一是样的，截取后是点阵图，但如果源图中有矢量图混在一起，可能截图后的清晰度就不太高（如斜线打印出来有锯齿）。所以我处理成了增强图元格式。

ssq1109

偶然发现手工解决办法，但试了一下用VBA实现，总是没有通用性。不好意思贴上。请高手帮忙。

我发现只要将顶楼附件中的点阵图由嵌入式改为其他形式（如浮于文字上）后，就可以和WORD中绘制的图形组合了。这样组合后尚未发现整个图错位或变形的问题。