精华内容
下载资源
问答
  • 如何使用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

    展开全文
  • 1、在word中插入一张柱状图表,会自动生成一个excel,用来填写数据,如下图所示: 根据自己的需求修改名称和数值,修改后会动态反映到word中图表上,很直观,如下图所示: 这时都是以柱状图的形式出现,都是在...

    最近在写一些报告,要用到不少表格和图,一开始不知道如何画柱状图和折线图的结合体,查了一番后搞定,记录下,以备日后翻阅。

    以GDP的数据为例说明:

    1、在word中插入一张柱状图表,会自动生成一个excel,用来填写数据,如下图所示:

    根据自己的需求修改名称和数值,修改后会动态反映到word中图表上,很直观,如下图所示:

    这时都是以柱状图的形式出现,都是在主坐标轴中。

    2、修改 “国内生产总值增长率(%) ”的图表类型

    在word里面图中,单独选中“国内生产总值增长率(%) ”,按右键,弹出右键菜单中选择“更改系列图表类型”,在弹出的窗口中选择折线图,如下图所示:

    3、修改 “国内生产总值增长率(%) ”的坐标系

    同样,在word里面图中,单独选中“国内生产总值增长率(%) ”,按右键,弹出右键菜单中选择“设置数据系列格式”,在弹出的窗口中选择次坐标轴,如下图所示:

     

    修改完成后,最终想要的效果图就出来了,如下图所示:

     

    展开全文
  • word2016函数曲线图

    万次阅读 2018-03-18 16:12:43
    关于处理数据或计算数学关系的工具,大部分人都知道 MATLAB ,但是如何在没有MATLAB的情况下函数呢?我们可以尝试使用officeword。以下为具体的方法。1.打开word2016,点击“插入”的 “图表“2.选中”XY...

          关于处理数据或计算数学关系的工具,大部分人都知道 MATLAB ,但是如何在没有MATLAB的情况下画函数呢?我们可以尝试使用office中的word去画。以下为具体的方法。

    1.打开word2016,点击“插入”的 “图表“


    2.选中”XY散点图“的”带平滑曲线的散点图“

    3.这时候会弹出一个excel 表格会让你填写数据。默认的数据名称是X值和Y值。输入对应的数据就可以生成对应的图像,但是我们要生成函数图像,一个个输入数据太麻烦,这时候可以用excel的公式(公式的书写格式参考百度)。看图。在单元格输入”=+你的函数公式“即可自动算出函数值。

                                                    

    4.如果不熟悉excel的操作,可能不知道x值如何打出来,其实这种有规律的x值(示例中是等距的分布),可以用excel的自动填充功能,先在单元格内输入两三个有明显规律的数据,选中那几个数据,然后把鼠标放到最后一个数据右下角(下图箭头指的绿点),光标会变成一个  ”+“ 这时候按住往下拖,就可以自动填充。


    5.此时直接退出excel数据编辑界面,就可以看到word生成的图,点击图片,可以对图片进行修改,包括加横纵坐标的标题,是否要显示网格线。


    优点:无需matlab等专业工具,无需编程能力。

    缺点:只能利用离散的数据画图,虽然有平滑曲线,但是还是不如matlab等工具的函数语言方便。所以,在画一些比较大型的图片时,还是用其他专业软件比较好一点。

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

    热门讨论 2012-04-06 18:49:24
    读者从中还可以学习如何在图表中修改数据、处理遗漏的数据、格式化图表、使用趋势线,以及从数据透视表创建图表等相关内容。除此之外,还可以学习如何通过AutoShapes,用图片和色彩修饰图表,以及利用VBA编程创建...
  • 中文版Excel.2007图表宝典 2/2

    热门讨论 2012-04-06 19:01:36
    读者从中还可以学习如何在图表中修改数据、处理遗漏的数据、格式化图表、使用趋势线,以及从数据透视表创建图表等相关内容。除此之外,还可以学习如何通过AutoShapes,用图片和色彩修饰图表,以及利用VBA编程创建...
  • 如何制作微课.doc

    2019-06-20 11:04:51
    如果碰到一个好的设计,想一想它好在哪里,PPT中如何实现,如果碰到一个不好的设计,想一想它不好哪里,应该如何修改。 进阶建议:希望有一天你能告诉我。 相关图书:《写给大家看的设计书》、《设计元素:平面...
  • 第一部分 界面设计

    2013-10-22 23:10:34
    实例051 如何在程序设置Word文档的字体风格 实例052 如何使用Onldle事件 实例053 如何使程序在循环时响应外界事件 实例054 如何设置程序在系统启动时自动运行 实例055 如何创建多线程程序 实例056 如何创建可...
  • 实例051 如何在程序设置Word文档的字体风格 实例052 如何使用Onldle事件 实例053 如何使程序在循环时响应外界事件 实例054 如何设置程序在系统启动时自动运行 实例055 如何创建多线程程序 实例056 如何创建可...
  • 实例051 如何在程序设置Word文档的字体风格 实例052 如何使用Onldle事件 实例053 如何使程序在循环时响应外界事件 实例054 如何设置程序在系统启动时自动运行 实例055 如何创建多线程程序 实例056 如何创建可...
  • 实例155 如何在图片移动文字 220 4.7 图像动画 221 实例156 动画背景窗体 221 实例157 随鼠标移动的图像 223 实例158 十字光标定位 224 实例159 抓取鼠标指针的形状 225 实例160 图像的上下对接显示...
  • delphi 开发经验技巧宝典源码

    热门讨论 2010-08-12 16:47:23
    0235 如何读取Word中的文本 156 0236 通过身份证号获取年龄 157 0237 如何实现一个应用程序只能打开一个进程 158 7.4 其他数据处理技术 159 0238 对计算结果四舍五入 159 0239 获取一个字符的ASCII值 ...
  • 0235 如何读取Word中的文本 156 0236 通过身份证号获取年龄 157 0237 如何实现一个应用程序只能打开一个进程 158 7.4 其他数据处理技术 159 0238 对计算结果四舍五入 159 0239 获取一个字符的ASCII值 ...
  • 0235 如何读取Word中的文本 156 0236 通过身份证号获取年龄 157 0237 如何实现一个应用程序只能打开一个进程 158 7.4 其他数据处理技术 159 0238 对计算结果四舍五入 159 0239 获取一个字符的ASCII值 ...
  • 0235 如何读取Word中的文本 156 0236 通过身份证号获取年龄 157 0237 如何实现一个应用程序只能打开一个进程 158 7.4 其他数据处理技术 159 0238 对计算结果四舍五入 159 0239 获取一个字符的ASCII值 ...
  • 0235 如何读取Word中的文本 156 0236 通过身份证号获取年龄 157 0237 如何实现一个应用程序只能打开一个进程 158 7.4 其他数据处理技术 159 0238 对计算结果四舍五入 159 0239 获取一个字符的ASCII值 ...
  • 0235 如何读取Word中的文本 156 0236 通过身份证号获取年龄 157 0237 如何实现一个应用程序只能打开一个进程 158 7.4 其他数据处理技术 159 0238 对计算结果四舍五入 159 0239 获取一个字符的ASCII值 ...
  • 基于XML标准vml作图包

    2011-03-21 18:43:39
    进行信息技术与学科整合过程...即便如此,还是有一些问题不易解决:用word等生成的网页与网站融合得不是很好,并且由它生成的代码很难被重复利用,比如你想在word生成的网页上加上一些动画控制的效果等就会遇到困难。
  • 主要内容有C#开发环境的使用、C#语言基础应用、字符串处理技术、数组和集合的使用、面向对象编程技术、数据...Word互操作、高效应用Excel、基本图形绘制、图像处理技术、常用图表应用、动画处理技术、音频与视频控制...
  • 本书是第I卷,以开发人员项目开发经常遇到的问题和必须掌握的技术为中心,介绍了应用C#进行程序开发各个方面的知识和技巧,主要包括C#编程基础、Windows窗体、控件应用、文件操作、C#与Office高效开发、图形...
  • 本书是第I卷,以开发人员项目开发经常遇到的问题和必须掌握的技术为中心,介绍了应用C#进行程序开发各个方面的知识和技巧,主要包括C#编程基础、Windows窗体、控件应用、文件操作、C#与Office高效开发、图形...
  • 本书是第I卷,以开发人员项目开发经常遇到的问题和必须掌握的技术为中心,介绍了应用C#进行程序开发各个方面的知识和技巧,主要包括C#编程基础、Windows窗体、控件应用、文件操作、C#与Office高效开发、图形...
  • 全书共分为5篇,第一篇为“精通Word 2003技巧”,主要介绍Word 2003的基本设置、文档编辑、图形图片处理、表格处理及如何Word应用于商务活动之;第二篇为“精通Excel 2003技巧”,主要介绍Excel 2003的基本设置...
  • 主要内容有C#开发环境的使用、C#语言基础应用、字符串处理技术、数组和集合的使用、面向对象编程技术、数据...Word互操作、高效应用Excel、基本图形绘制、图像处理技术、常用图表应用、动画处理技术、音频与视频控制...
  • 实例133 如何在图片上平滑移动文字 165 3.7 图像动画 167 实例134 动画背景窗体 167 实例135 随鼠标移动的图像 169 实例136 十字光标定位 170 实例137 抓取鼠标形状 171 3.8 图像识别 172 实例138 ...
  • 如何用C#Excel生成图表?.txt 如何用程序实现键盘和鼠标的模拟?.txt 如何与资源管理器互动剪切、拷贝、粘贴文件.txt 深入理解C#编程的组件-事件-委托.txt 生成透明的GIF图片 .txt 生成压缩图片时的2种...
  • 实例133 如何在图片上平滑移动文字 170 3.7 图像动画 172 实例134 动画背景窗体 172 实例135 随鼠标移动的图像 173 实例136 十字光标定位 175 实例137 抓取鼠标形状 176 3.8 图像识别 177 实例...
  • 实例133 如何在图片上平滑移动文字 170 3.7 图像动画 172 实例134 动画背景窗体 172 实例135 随鼠标移动的图像 173 实例136 十字光标定位 175 实例137 抓取鼠标形状 176 3.8 图像识别 177 实例...
  • 如何用C#Excel生成图表?.txt 如何用程序实现键盘和鼠标的模拟?.txt 如何与资源管理器互动剪切、拷贝、粘贴文件.txt 深入理解C#编程的组件-事件-委托.txt 生成透明的GIF图片 .txt 生成压缩图片时的2种...
  • PowerPoint.2007宝典 8/10

    2012-04-01 18:39:23
    12.3 幻灯片插入剪贴 238 12.4 剪贴搜索方法 239 12.4.1 使用多个关键词 239 12.4.2 指定要搜索哪个收藏集 239 12.4.3 指定要查找哪些媒体文件类型 240 12.5 使用剪贴收藏集 241 12.5.1 打开...
  • PowerPoint.2007宝典 10/10

    2012-04-01 18:45:00
    12.3 幻灯片插入剪贴 238 12.4 剪贴搜索方法 239 12.4.1 使用多个关键词 239 12.4.2 指定要搜索哪个收藏集 239 12.4.3 指定要查找哪些媒体文件类型 240 12.5 使用剪贴收藏集 241 12.5.1 打开...

空空如也

空空如也

1 2 3 4 5
收藏数 97
精华内容 38
热门标签
关键字:

如何在word中画图表