如何使用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