如何将Excel表中的柱形图及原始数据一同粘贴到Word文档中?

把Excel表格贴到txt里，然后再从txt中全部拷贝，贴到Word中，在点击<插入表格>的快捷按钮。

打开excel表格，全选 复制，直接粘贴到word文档中即可，然后调节行、列的大小、文字的大小及页面的纵、横向。

最佳答案：

Word：
插入-〉对象-新建：Microsoft Excel 图表

双击该插入对象，会在word中显示一个Excel文档，有两个工作表：
1、Chart1: 图表区域；
2、Sheet1: 数据区域；
修改Sheet1中对应数据之后，Chart1中图表即可变化。
与Excel中的图表一样，也可调整图表类型、样式等。

以上，有测试通过，请采纳，谢谢！

很简单
我详细给你讲：
先讲图标的问题：
做好图表
鼠标右键单击图标外框，选好图标，复制
仍然在excel里，开始-粘贴-点粘贴下面的小箭头-选择性粘贴
选择图片（增强型图源文件），确定。
这样你就得到一张图片格式的图标，复制此图片，在word里粘贴即可。
删除工作表格：
右键点击excel左下角你要删除的工作表，选择删除即可

分析：先读取记事本内容导入到sheet2的A列暂存，然后把sheet1的A列（多列）文本与sheet2的A列用空格连接后，写入到记事本，完成。
Sub ss() ipath = "d:\sheet1.txt" '记事本的路径与文件名，这里要改成你的，没有就新建一个 Open ipath For Input As #1 '读取记事本内容导入到excel Do While Not EOF(1) i = i + 1 Line Input #1, sData Sheet2.Range("A" & i) = sData Loop Close #1

Open ipath For Output As #2 '将excel单元格的内容导入记事本 p = Sheet1.Range("A65535").End(xlUp).Row '要导入的行数 For i = 1 To p s = Sheet2.Range("A" & i).Value & " " & Range("A" & i).Value '要导入的内容 Print #2, s Next Close #2End Sub

在Word中插入-对象，选择excel图表

在WORD中插入excel工作表，再把excel中的图表和原始数据整页复制到WORD中的excel工作表中，再根据你要的内容的大小拖动WORD中的EXCEL工作表到适合大小。

插入excel工作表用如下操作：
在“常用”工作栏(就是那个有新建 打开 保存。。。。的工具栏)中的插入表格的那几个图标的第三个，下面有一个excel的标志的，点一下，就会提示要几行几列的，这个可以任意选，等下可以继续改变行列数的，
插完excel工作表后如果点击WORD里面的文字，插入的excel工作表就会就成常规表格的样子，如果要编缉，双击就回到了excel的编缉模式。

原文本数据复制，excel插入两列在第一列粘贴文本，调整对应格式。全部选择-复制-粘贴到文本即可