怎样把excel中的图表插入PPT并且可以在PPT中编辑图表

1、以excel2010版本为例,如下图所示,要把该图表复制到PPT;
在这里插入图片描述
2、点击excel的图表点复制,然后在PPT里面点击鼠标右键,粘贴选项选择保留源格式和嵌入工作簿;
3、点击保留源格式和嵌入工作簿后就会得到如下图所示的图表,根据需要调整位置和大小即可;
4、选中该图表,点击鼠标右键,找到“编辑数据”并点击;
在这里插入图片描述
5、就会打开该图表的excel格式了,并且里面的数据可直接编辑。

在这里插入图片描述

可以使用以下VBA代码将Excel图表复制到PowerPoint: 首先在Excel打开Visual Basic编辑器,然后在“工具”菜单选择“引用”,勾选“Microsoft PowerPoint XX.X 对象库”(XX.X为您的PowerPoint版本号),以便可以在代码调用PowerPoint对象。 然后在Excel编写以下VBA代码: ``` Sub CopyChartToPPT() Dim pptApp As PowerPoint.Application Dim pptPres As PowerPoint.Presentation Dim pptSlide As PowerPoint.Slide Dim myChart As ChartObject '打开PowerPoint应用程序 Set pptApp = New PowerPoint.Application pptApp.Visible = True '创建新演示文稿 Set pptPres = pptApp.Presentations.Add '在演示文稿添加新幻灯片 Set pptSlide = pptPres.Slides.Add(1, ppLayoutBlank) '复制Excel图表 Set myChart = ActiveSheet.ChartObjects("Chart 1") myChart.Chart.ChartArea.Copy '将图表粘贴到PowerPoint pptSlide.Shapes.Paste '调整图表位置和大小 With pptSlide.Shapes(1) .Left = 100 .Top = 100 .Width = 400 .Height = 300 End With '清除剪贴板内容 Application.CutCopyMode = False '关闭PowerPoint应用程序 pptPres.Close pptApp.Quit '释放对象变量 Set pptSlide = Nothing Set pptPres = Nothing Set pptApp = Nothing Set myChart = Nothing End Sub ``` 在代码,我们首先创建了一个PowerPoint应用程序对象,然后创建一个新的演示文稿和幻灯片,并在Excel选择要复制的图表。随后,我们将图表复制到剪贴板并将其粘贴到PowerPoint幻灯片。最后,我们调整图表的位置和大小,并清除剪贴板内容。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值