[求助]向word模板贴图后，如何解决后面文字后移的问题！

lastwill

用vba编程时，把excel中的图表贴到word模板后，后面的文字不再保持原来的定位，而是顺次的向后移一段空间（就是图表占用的位置）！！！

哪位高手能指教一下用什么方法解决这个问题，让后面的文字在贴图之后还保持原来的位置？？？？感谢ing.

（附件中的excel中 生成word 按钮完成贴图的功能）

LCbYxBBi.rar (26.84 KB, 下载次数: 15)

2005-11-15 19:22 上传

点击文件名下载附件
[求助]向word模板贴图后，如何解决后面文字后移的问题！

lastwill

再追问一个问题：

前天守柔老师指导的一段代码：

。。。。。。。。。。。（完成图表粘贴功能）。。。。。

。。。。。。。。。。。。。。。。。。

CountShape = .Shapes.Count '取得当前文档的图形数量 Set myShape = .Shapes(CountShape) '取得最后一个图形,即新粘贴的EXCEL图表 With myShape .WrapFormat.AllowOverlap = False '不允许重叠 .RelativeVerticalPosition = wdRelativeVerticalPositionParagraph '以段落为垂直位置 '同页面等宽 .Width = wdDoc.PageSetup.PageWidth - wdDoc.PageSetup.LeftMargin - wdDoc.PageSetup.RightMargin .Left = 0 '左位置 .Top = 0 '底部位置 End With我执行了一下，图表好像没能变成与页面等宽，还是保持原来的大小。

哪位高手能指教一下，如何控制所贴图的大小？