如何使用VSTO自动将Excel中的图表复制到Word

 1 Module Module1
 2     Sub Main(args As String())
 3         Try
 4             Dim appPath As String = Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().Location)
 5             Dim excelFile As String = appPath & Convert.ToString("\TestExcel.xlsx")
 6             Dim wordFile As String = appPath & Convert.ToString("\TestDoc.docx")
 7             ExportChartDataToWord(excelFile, wordFile)
 8             Console.WriteLine("Chart exported to word document successfully")
 9             Console.ReadLine()
10         Catch ex As Exception
11             Console.WriteLine(ex.Message)
12         End Try
13     End Sub
14     Sub ExportChartDataToWord(excelFile As String, wordFile As String)
15         Dim objExcelApp As Microsoft.Office.Interop.Excel._Application = New Microsoft.Office.Interop.Excel.Application()
16         objExcelApp.Visible = False
17         Dim workbook As Microsoft.Office.Interop.Excel._Workbook = objExcelApp.Workbooks.Open(excelFile)
18         Dim worksheet As Microsoft.Office.Interop.Excel._Worksheet = DirectCast(workbook.Sheets(1), Microsoft.Office.Interop.Excel.Worksheet)
19         Dim charObj As Microsoft.Office.Interop.Excel.ChartObject = worksheet.ChartObjects("Chart 1")
20         Dim objWordApp As Microsoft.Office.Interop.Word._Application = New Microsoft.Office.Interop.Word.Application()
21         If objWordApp Is Nothing Then
22             Console.WriteLine("Word could not be started. Check that your office installation and project references are correct.")
23             Return
24         End If
25         objWordApp.Visible = False
26         Dim objDoc As Microsoft.Office.Interop.Word._Document = objWordApp.Documents.Open(wordFile)
27         charObj.Chart.ChartArea.Copy()
28         objDoc.Application.Selection.PasteSpecial()
29         ‘Save the doc
30         objDoc.Save()
31         ‘Close the open docs and workbooks
32         objWordApp.Documents.Close()
33         objWordApp.Quit()
34         objExcelApp.Workbooks.Close()
35         objExcelApp.Quit()
36     End Sub
37 End Module