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

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

原文地址：https://code.msdn.microsoft.com/How-to-copy-Chart-in-Excel-a29f9029

该项目说明如何使用VSTO自动复制Excel中的图表

介绍

有些客户经常在MSDN论坛上提出这个问题。 但在MSDN画廊中没有现有的样本。 所以如果有样品，可以帮助客户解决问题。

客户证据：

http://social.msdn.microsoft.com/Forums/en-US/isvvba/thread/21a2fd18-d850-40d9-9d87-122bbaf9369d

http://social.msdn.microsoft.com/Forums/en-US/vsto/thread/8d94da85-a95f-41c0-b7ec-6bf34fd0e151

创建项目

在Visual Studio 2013中打开项目（VBNETExportExcelChartToWord.vbproj）并构建它。

VB代码：

 Module Module1
     Sub Main(args As String())
         Try
             Dim appPath As String = Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().Location)
             Dim excelFile As String = appPath & Convert.ToString("\TestExcel.xlsx")
             Dim wordFile As String = appPath & Convert.ToString("\TestDoc.docx")
             ExportChartDataToWord(excelFile, wordFile)
             Console.WriteLine("Chart exported to word document successfully")
             Console.ReadLine()
         Catch ex As Exception
             Console.WriteLine(ex.Message)
         End Try
     End Sub
     Sub ExportChartDataToWord(excelFile As String, wordFile As String)
         Dim objExcelApp As Microsoft.Office.Interop.Excel._Application = New Microsoft.Office.Interop.Excel.Application()
         objExcelApp.Visible = False
         Dim workbook As Microsoft.Office.Interop.Excel._Workbook = objExcelApp.Workbooks.Open(excelFile)
         Dim worksheet As Microsoft.Office.Interop.Excel._Worksheet = DirectCast(workbook.Sheets(), Microsoft.Office.Interop.Excel.Worksheet)
         Dim charObj As Microsoft.Office.Interop.Excel.ChartObject = worksheet.ChartObjects("Chart 1")
         Dim objWordApp As Microsoft.Office.Interop.Word._Application = New Microsoft.Office.Interop.Word.Application()
         If objWordApp Is Nothing Then
             Console.WriteLine("Word could not be started. Check that your office installation and project references are correct.")
             Return
         End If
         objWordApp.Visible = False
         Dim objDoc As Microsoft.Office.Interop.Word._Document = objWordApp.Documents.Open(wordFile)
         charObj.Chart.ChartArea.Copy()
         objDoc.Application.Selection.PasteSpecial()
         'Save the doc
         objDoc.Save()
         'Close the open docs and workbooks
         objWordApp.Documents.Close()
         objWordApp.Quit()
         objExcelApp.Workbooks.Close()
         objExcelApp.Quit()
     End Sub
 End Module

1.此示例从Excel文件中复制图表对象内容，然后使用VSTO方式将其粘贴到Word文档中。
2.在执行示例之前，将TestDoc.docx和TestExcel.xlsx文件复制到可执行位置。
3.运行可执行文件VBNETExportExcelChartToWord.exe，这将会将图表内容复制到名为TestDoc.docx的单词文档中？
4.打开word文档并验证其内容。

Imports System.IO
Imports Microsoft.Office.Interop.Excel
Imports Microsoft.Office.Interop.Word
Module Module1

    Sub Main()
        Try
            Dim appPath As String = Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().Location)
            Dim excelFile As String = appPath & Convert.ToString("\TestExcel.xlsx")
            Dim wordFile As String = appPath & Convert.ToString("\TestDoc.Docx")
            ExportChartDataToWord(excelFile, wordFile)
            Console.WriteLine("Chart exported to word document successfully")
            Console.ReadLine()
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
        Console.Read()
    End Sub
    Sub ExportChartDataToWord(excelFile As String, wordFile As String)
        Dim objExcelApp As Microsoft.Office.Interop.Excel._Application = New Microsoft.Office.Interop.Excel.Application()
        objExcelApp.Visible = False
        Dim workbook As Microsoft.Office.Interop.Excel._Workbook = objExcelApp.Workbooks.Open(excelFile)
        Dim worksheet As Microsoft.Office.Interop.Excel._Worksheet = DirectCast(workbook.Sheets(), Microsoft.Office.Interop.Excel.Worksheet) 'DirectCast类似于Ctype,不过要求必须前后的类型一致
        Dim charObj As Microsoft.Office.Interop.Excel.ChartObject = worksheet.ChartObjects("chart 3")
        Dim objWordApp As Microsoft.Office.Interop.Word._Application = New Microsoft.Office.Interop.Word.Application()
        If objWordApp Is Nothing Then
            Console.WriteLine("Word could not be started.Check that your office installation and project references are correct.")
            Return
        End If
        objWordApp.Visible = False
        Dim objDoc As Microsoft.Office.Interop.Word._Document = objWordApp.Documents.Open(wordFile)
        charObj.Chart.ChartArea.Copy()
        objDoc.Application.Selection.PasteSpecial()
        'Save the doc
        objDoc.Save()
        'Close the open docs and workbooks
        objWordApp.Documents.Close()
        objWordApp.Quit()
        objExcelApp.Workbooks.Close()
        objExcelApp.Quit()

    End Sub
End Module