excelVBA将excel中的图表到word指定位置。

ningyong58

在excel制作了一个图表。
目标需求采用excelVBA将excel中的图表Copy 和粘贴到word的指定位置。

详见附件。
图表到word的指定位置.rar (7.88 KB, 下载次数: 219)

2010-1-19 08:28 上传

点击文件名下载附件

ningyong58

在VB中录了一个宏
'
    Selection.Copy
    'Selection.InsertBreak Type:=wdPageBreak
    Selection.Paste
再学习一下相关知识。

如：用VBA复制图片到word中
Dim objWordApp As Word.Application
    Dim objWord As Word.Document
    Range(Cells(3, 2), Cells(11, 11)).Select
    Selection.CopyPicture
    Set objWordApp = CreateObject("Word.Application")
    Set objWord = objWordApp.Documents.Add
    objWord.Application.Visible = True
    objWord.Application.Selection.Paste
    Set objWord = Nothing
    Set objWordApp = Nothing

[ 本帖最后由 ningyong58 于 2010-1-20 12:25 编辑 ]

ningyong58

在这个网站http://www.officefans.net/cdb/vi ... &highlight=word
好像能实现目标。

Private Sub CommandButton1_Click()
Set wdapp = CreateObject("Word.Application")
UserFile = ActiveWorkbook.Path & "\a1.doc"
Set wdDocument = wdapp.Documents.Open(UserFile) '打开word文档
wdapp.Visible = True                                                             'word 文档可见
ActiveSheet.ChartObjects("chart 8").Activate              '选中excel 中的图表
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy                                     '复制excel 中的图表
wdDocument.content.PasteAndFormat (wdPasteDefault)
       'excel 图片粘贴到word文档，不知为什么 一粘贴到word，就把word  所有其他的东西全搞没有了
wdapp.Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
      '想选中该刚复制的图片，然后修改图片大小，但这句不能选中该图片,这句该怎么写啊？
      '提示是：运行时错误：            4120 参数无效
wdapp.Selection.EndKey Unit:=wdStory     '4120 参数无效
      '想把光标移到word 文档的最后，但这句不行，这句该怎么写啊？
wdapp.Selection.MoveRight Unit:=wdCharacter, Count:=12, Extend:=wdExtend '4120 参数无效
      '想在当前位置选中后12个字符，但这句不行，这句该怎么写啊？
wdapp.Selection.Font.Size = 42
      '要是选中了，我就修改他的字体，又不怎么写，还求各位哥们帮忙，谢了啊

wdDocument.Save
wdDocument.Close '退出文件
wdapp.Quit '退出word
End Sub

我真不是9527

ningyong58 发表于 2010-1-20 12:53
在这个网站http://www.officefans.net/cdb/viewthread.php?tid=107831&highlight=word
好像能实现目标。
...

我最近也在研究这个东西，看到你写的对我启发很大，谢谢了。
关于wdDocument.content.PasteAndFormat (wdPasteDefault)
       'excel 图片粘贴到word文档，不知为什么 一粘贴到word，就把word  所有其他的东西全搞没有了
我想到一种方法如下
       wdapp.Application.Selection.PasteAndFormat (wdChartPicture)
       wdapp.Application.Selection.TypeParagraph
这样之后做个循环就可以把工作簿里面所有的图表复制到word中了。过去6年了，不知道博主还看不看得到

andy800529

ningyong58 发表于 2010-1-20 12:53
在这个网站http://www.officefans.net/cdb/viewthread.php?tid=107831&highlight=word
好像能实现目标。
...

这个链接打不开了。。。