对WORD对象进行选择性粘贴的问题

haigecnpeng 发布于 2011-06-18 21:12， 1403 次点击

    MSChart1.EditCopy      '复制位图
    Dim wa As New Word.Application
    wa.Documents.Open ("d:\123.doc")    '打开word模板
    wa.Selection.PasteAndFormat (wdPasteDefault) '选择性粘贴
    wa.Visible = True
    Set wa = Nothing

以上代码是将图标控件生成的图表导出到word的代码，郁闷的是导出的是数据而不是图片，跟选择性粘贴中选择图片文件的效果不同。
我在录制宏里面录制的也是Selection.PasteAndFormat (wdPasteDefault)，但运行宏也是出来数据。

麻烦哪位知道的高手指点下！谢谢！

5 回复

不说也罢2011-06-21 11:42

楼上的用了SET语句，看起来还是VB6下语法。用截图技术，然后粘贴到WORD，或者将数据传递给宏，由宏生成图表吧

haigecnpeng2011-06-21 20:40

谢谢不说也罢的回答，
这段确实是VB6的，家里没.NET，但试验结果都一样的，
截图的办法我想过，甚至想将chart的图片存在picture中，再存为tmp文件，然后再插入word。想想都复杂，后来没试。
您说的2种方法，还想请教下，
1.chart控件怎么截图？
2.将数据传递给宏，由宏生成图表？怎么实现？

不说也罢2011-06-21 21:22

.NET下实现截图很简单的.明天有时间写个例子给你

不说也罢2011-06-21 21:53

刚才写了一下。你参考一下，完全可以粘贴到WORD
你实际运用时，可将代码中的Picturebox1替换成你的chart对象的名称，如Chart1
粘贴到WORD的代码我就没写了，你完全能做得到。有问题可以继续讨论

只有本站会员才能查看附件，请登录

haigecnpeng2011-06-22 19:57

谢谢！刚学，觉得功能是强大很多，看起来像VB6，但又有很多不同，
截屏的时候，难在边界不知道怎么界定，但.net好像直接就有了解决方案了啊！