我有一些在 Word 2003 中开发的第 3 方代码,但它在 Word 2010 中不起作用。代码应粘贴 Excel.Chart 对象并将其转换为内联形状。
Sub PasteChartAsInteractive(chart As Excel.chart)
Dim myShape As Shape
chart.ChartArea.Copy
Selection.Style = ActiveDocument.Styles("Normal")
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.PasteAndFormat (wdChart)
Set myShape = Selection.Paragraphs(1).range.InlineShapes(1).ConvertToShape
myShape.ConvertToInlineShape
...
起初,该PasteAndFormat
行引发了一条空的错误消息。
然后我试图用
Selection.PasteSpecial Link:=False, DataType:=wdPasteOLEObject, Placement _
:=wdInLine, DisplayAsIcon:=False
它引发了另一个错误,说System Error &H80004005 (-2147467259). Unspecified error
. 但在这种情况下,图表实际上会粘贴到 Word 中。
有人知道导致问题的原因以及应该如何解决?
TIA