[英]Copy from Excel Paste in Word
在 Excel 中,我有大约 20 张纸,每张纸中有 20 个图表,我需要将它们复制/粘贴到 Word 文档中。 每个 Excel 表一个 Word 文档。 我发现这篇文章有一个解决方案,我修改了它以接受 ChartObject 作为参数,这样我就不必考虑正在复制哪个图表。 我在 CopyChart2Word() 函数中调用 PasteSpecial 的最后一行出现以下运行时错误:
这不是很有帮助,因为它没有告诉我出了什么问题。 但是图表粘贴到 Word 文档中时丢失了一半的数据点。
代码:
Public Function moveCharts()
Dim i As Integer
Dim name As String
Dim ChtObj As ChartObject
Dim dummy As Variant
initGlobals
For i = 0 To UBound(employees)
name = employees(i)
For Each ChtObj In Worksheets(name).ChartObjects
dummy = CopyChart2Word(ChtObj)
Next ChtObj
Next i
End Function
Public Function CopyChart2Word(chartObj As ChartObject)
Dim wd As Object
Dim ObjDoc As Object
Dim FilePath As String
Dim FileName As String
FilePath = "C:\Users\name\Desktop"
'Empty document for now
FileName = "Template.docx"
'check if template document is open in Word, otherwise open it
On Error Resume Next
Set wd = GetObject(, "Word.Application")
If wd Is Nothing Then
Set wd = CreateObject("Word.Application")
Set ObjDoc = wd.Documents.Open(FilePath & "\" & FileName)
Else
On Error GoTo notOpen
Set ObjDoc = wd.Documents(FileName)
GoTo OpenAlready
notOpen:
Set ObjDoc = wd.Documents.Open(FilePath & "\" & FileName)
End If
OpenAlready:
On Error GoTo 0
'find Bookmark in template doc
wd.Visible = True
'ObjDoc.Bookmarks("Bookmark1").Select
'copy chart from Excel
chartObj.chart.ChartArea.Copy
'insert chart to Bookmark in template doc
'wdPasteMetafilePicture didn't work so I used the numeric value 3
'wdInLine didn't work so I used the numeric value 0
wd.Selection.PasteSpecial Link:=False, _
DataType:=3, _
Placement:=0, _
DisplayAsIcon:=False
End Function
链接到示例图表。
我怀疑该错误可能是由同时打开不同 Word 实例引起的。 为了消除这种可能性,我建议理清您处理 Word 和文档的方式。 你的代码逻辑有点混乱。 请试试这个。
On Error Resume Next
Set Wd = GetObject(, "Word.Application")
If Err Then Set Wd = CreateObject("Word.Application")
On Error Resume Next
Set ObjDoc = Wd.Documents(Filename)
If Err Then Set ObjDoc = Wd.Documents.Open(FilePath & "\" & Filename)
On Error GoTo 0
我想知道为什么你需要Wd.Visible = True
。 默认情况下它应该是可见的。 然而,也许 Window 不是 ActiveWindow。 事实上,Word 可能不是活动应用程序。 我认为这对代码无关紧要。
但这对Selection
对象应该很重要。 只有 ActiveWindow 可以有一个Selection
。 因此,如果您打开 Excel 并运行代码,则无法访问 Word 中的Selection
对象。 而且,反过来,如果您打开 Word 并进行选择,然后更改为 Excel,则Selection
对象将丢失。 这也可能导致致命错误。 只需遵循以下规则:“永远不要在 VBA 中Select
任何内容 [直到代码的最后一行]。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.