精华内容
下载资源
问答
  • 如何使用VSTO自动将Excel中的图表复制到Word 原文地址:https://code.msdn.microsoft.com/How-to-copy-Chart-in-Excel-a29f9029 该项目说明如何使用VSTO自动复制Excel中的图表 介绍 有些客户经常在MSDN论坛上...

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

     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

    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(1), 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

     

    转载于:https://www.cnblogs.com/xiehaofeng/p/7491394.html

    展开全文
  • Excel-导出图表的方法

    2020-02-26 20:24:32
    Excel软件擅长作图,但是如何图表Excel中导出到Word文档或者其他文件夹呢?以下提供几个方法: 1、导出到Word-粘贴为图片 在Excel中选中图表复制,打开Word软件,右上角【粘贴】【粘贴为图片】即可。 2、导出到...

    Excel-导出图表的方法

    Excel软件擅长作图,但是如何将图表从Excel中导出到Word文档或者其他文件夹呢?以下提供几个方法:

    1、导出到Word-粘贴为图片

    在Excel中选中图表复制,打开Word软件,右上角【粘贴】【粘贴为图片】即可。
    在这里插入图片描述

    2、导出到文件夹-单张图表

    在Excel软件中,点击将要复制的图表,右上角点击【复制】【复制为图片】,再打开【画图】工具【Ctrl+V】粘贴,重新保存即可。在这里插入图片描述
    在这里插入图片描述

    3、导出到文件夹-多张图

    可以将带有多张图表的文件另存为网页类型,即可在文件保存的路径下得到包含每张图标的文件夹。
    在这里插入图片描述

    展开全文
  • 中文版Excel.2007图表宝典 1/2

    热门讨论 2012-04-06 18:49:24
    对于那些想制作出精美、专业的电子数据表格的中高级Excel用户,特别是经常需要利用Excel图表演示工作数据的用户,本书是一部绝佳的学习指南。这些实例可以直接进行部署使用。 内容提要 ---------------------------...
  • 中文版Excel.2007图表宝典 2/2

    热门讨论 2012-04-06 19:01:36
    对于那些想制作出精美、专业的电子数据表格的中高级Excel用户,特别是经常需要利用Excel图表演示工作数据的用户,本书是一部绝佳的学习指南。这些实例可以直接进行部署使用。 内容提要 ---------------------------...
  • Excel技巧大全

    2015-05-06 07:21:37
    3. 将Excel单元格转换成图片形式插入到Word中 30 4. 将Word内容以图片形式插入到Excel表格中 30 5. 将Word中的内容作为图片链接插入Excel表格中 30 6. 在独立的窗口中处理内嵌式图表 31 7. 在图表中显示隐藏数据 31 ...
  • Excel新手完全教程

    2014-10-08 23:13:58
    107. 将EXCEL单元格转换成图片形式插入到WORD中 44 108. 将WORD内容以图片形式插入到EXCEL表格中 44 109. 将WORD中的内容作为图片链接插入EXCEL表格中 44 110. 在独立的窗口中处理内嵌式图表 45 111. 在图表中显示...
  • Excel使用技巧大全

    2011-09-13 23:38:39
    3. 将EXCEL单元格转换成图片形式插入到WORD中 37 4. 将WORD内容以图片形式插入到EXCEL表格中 37 5. 将WORD中的内容作为图片链接插入EXCEL表格中 37 6. 在独立的窗口中处理内嵌式图表 38 7. 在图表中显示隐藏数据 38 ...
  • 107. 将EXCEL单元格转换成图片形式插入到WORD中 60 108. 将WORD内容以图片形式插入到EXCEL表格中 61 109. 将WORD中的内容作为图片链接插入EXCEL表格中 61 110. 在独立的窗口中处理内嵌式图表 62 111. 在图表中显示...
  • excel的使用

    2012-11-25 17:06:01
    这时先不要忙着把B列和C列删除,先要把D列的结果复制一下,再用“选择性粘贴”命令,将数据粘贴一个空列上。这时再删掉B、C、D列的数据。下面是一个“&”实际应用的例子。用AutoCAD绘图时,有人喜欢在EXCEL中存储...
  • 3. 将EXCEL单元格转换成图片形式插入到WORD中 30 4. 将WORD内容以图片形式插入到EXCEL表格中 30 5. 将WORD中的内容作为图片链接插入EXCEL表格中 30 6. 在独立的窗口中处理内嵌式图表 31 7. 在图表中显示隐藏数据 31 ...
  • 107. 将EXCEL单元格转换成图片形式插入到WORD中 60 108. 将WORD内容以图片形式插入到EXCEL表格中 61 109. 将WORD中的内容作为图片链接插入EXCEL表格中 61 110. 在独立的窗口中处理内嵌式图表 62 111. 在图表中显示...
  • Excel_VBA教程

    2014-09-22 11:36:34
    第七课 如何EXCEL里使用定时器 20 三、学习微软 EXCEL 2002 VBA 编程和XML,ASP技术 22 第一章 电子表格自动化简介和了解宏命令 22 1了解宏 22 2宏命令的普通应用 22 3写宏之前的计划 23 4录制宏 24 5运行宏 26 6...
  • Excel VBA 基础教程

    2019-01-01 18:51:06
    ........................................................................EXCEL环境中基于应用程序自动化的优点................................................................................1 1.3 录制简单的...
  • ExcelVBA程序设计.doc

    2011-04-05 21:32:51
    第七课 如何EXCEL里使用定时器 20 三、学习微软 EXCEL 2002 VBA 编程和XML,ASP技术 22 第一章 电子表格自动化简介和了解宏命令 22 1了解宏 22 2宏命令的普通应用 22 3写宏之前的计划 23 4录制宏 24 5运行宏 26 6...
  • EXCEL编程VBA高级教程

    2015-04-16 11:40:55
    1.2EXCEL环境中基于应用程序自动化的优点................................................................................1 1.3录制简单的宏....................................................................
  • 8.3.2 将模板复制到已有工作簿中 8.3.3 常见问题如何巧妙替上司挡驾 8.3.4 删除工作日程安排中的不相关内容 8.3.5 快速查看模板中的公式 经验分享 多种方式的备忘手段 为日程表添加图片背景 8.3.6 在备忘录中引用...
  • 技巧130 将筛选结果复制到其他工作表 技巧131 在筛选结果中只显示部分字段数据 技巧132 筛选不重复值 技巧133 设置多个筛选条件的相互关系 技巧134 空与非空条件设置的方法 技巧135 精确匹配的筛选条件 ...
  • 【新建工作表】 批量新建或者复制工作表,依指定存储格内容可以瞬间建立/复制1255个。还可以在新建或复制时全自动命名。分为自动新增方式与依指定存储格内容两种方式。 【插入批注背景】 可以选定任意一幅图片为...
  • Word大型文档排版指南

    2011-12-01 12:34:18
    这是我自己写的一本关于Word2003应用的书籍,投稿机械工业出版社,被拒,发这里来,希望能够帮助的朋友们。本书主要讲解用Word排版大型文档的经验和技巧,可供撰写毕业设计论文的同学和写书的作者参考,希望本书能...
  • 如何制作微课.doc

    2019-06-20 11:04:51
    相关图书:《演说之禅》、《Slide:ology》、《别告诉我你懂PPT》、《Excel图表之道》 网络资源:让PPT设计New-New、演说非常道   第四重境界:一切都是PPT 到达这一境界的人就像打通了任督二脉,你发现自己看到一切...
  • 第一部分 界面设计

    2013-10-22 23:10:34
    实例086 如何复制文件 实例087 如何定制文件复制操作 实例088 如何更名文件 实例089 如何更改文件扩展名 实例090 如何删除文件 实例091 如何删除文件夹 实例092 如何选择文件夹 实例093 如何创建多层文件夹 ...
  • 实例086 如何复制文件 实例087 如何定制文件复制操作 实例088 如何更名文件 实例089 如何更改文件扩展名 实例090 如何删除文件 实例091 如何删除文件夹 实例092 如何选择文件夹 实例093 如何创建多层文件夹 ...
  • 实例086 如何复制文件 实例087 如何定制文件复制操作 实例088 如何更名文件 实例089 如何更改文件扩展名 实例090 如何删除文件 实例091 如何删除文件夹 实例092 如何选择文件夹 实例093 如何创建多层文件夹 ...
  • 网管教程 从入门精通软件篇 ★一。★详细的xp修复控制台命令和用法!!! 放入xp(2000)的光盘,安装时候选R,修复! Windows XP(包括 Windows 2000)的控制台命令是在系统出现一些意外情况下的一种非常有效的...
  • 实例244 如何把数据库中的数据写入Word文档 实例245 如何设置数据库字段的输入显示格式 实例246 如何管理数据库程序的错误信息 实例247 如何获取数据库BDE别名 实例248 如何获取数据库BDE别名参数信息 实例249 ...
  • 主要内容有C#开发环境的使用、C#语言基础应用、字符串处理技术、数组和集合的使用、面向对象编程技术、数据...Word互操作、高效应用Excel、基本图形绘制、图像处理技术、常用图表应用、动画处理技术、音频与视频控制...
  • 实例229 将数据表中的字段添加ComboBox控件中 实例230 在ComboBox下拉列表中显示图片 实例231 用ComboBox控件制作浏览器网址输入框 实例232 实现带查询功能的ComboBox控件 11.4 RichTextBox控件应用 实例233...
  • 实例229 将数据表中的字段添加ComboBox控件中 实例230 在ComboBox下拉列表中显示图片 实例231 用ComboBox控件制作浏览器网址输入框 实例232 实现带查询功能的ComboBox控件 11.4 RichTextBox控件应用 实例233...
  • 实例229 将数据表中的字段添加ComboBox控件中 实例230 在ComboBox下拉列表中显示图片 实例231 用ComboBox控件制作浏览器网址输入框 实例232 实现带查询功能的ComboBox控件 11.4 RichTextBox控件应用 实例233...

空空如也

空空如也

1 2 3 4 5 ... 8
收藏数 144
精华内容 57
关键字:

excel图表如何复制到word