excel图表数据发送到ppt

代码转载自：《Excel2016高级VBA编程宝典》
工作中需要的ppt有固定的汇报内容，在这本书中找到了相关的代码，分享下~~
内容仅供参考学习，版权相关请联系删除…

Sub Macro100()'Step 1:  Declare your variablesDim PP As PowerPoint.ApplicationDim PPPres As PowerPoint.PresentationDim PPSlide As PowerPoint.SlideDim i As Integer'Step 2:  Check for charts; exit if no charts existSheets("Slide Data").SelectIf ActiveSheet.ChartObjects.Count < 1 ThenMsgBox "No charts existing the active sheet"Exit SubEnd If'Step 3:  Open PowerPoint and create new presentationSet PP = New PowerPoint.ApplicationSet PPPres = PP.Presentations.AddPP.Visible = True'Step 4:  Start the loop based on chart countFor i = 1 To ActiveSheet.ChartObjects.Count'Step 5:  Copy the chart as a pictureActiveSheet.ChartObjects(i).Chart.CopyPicture _Size:=xlScreen, Format:=xlPictureApplication.Wait (Now + TimeValue("0:00:1"))'Step 6:  Count slides and add new slide as next available slide numberppSlideCount = PPPres.Slides.CountSet PPSlide = PPPres.Slides.Add(SlideCount + 1, ppLayoutBlank)PPSlide.Select'Step 7:  Paste the picture and adjust its position; Go to next chartPPSlide.Shapes.Paste.SelectPP.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, TruePP.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, TrueNext i'Step 8:  Memory CleanupSet PPSlide = NothingSet PPPres = NothingSet PP = NothingEnd Sub

excel图表数据发送到ppt相关推荐

微软抓住GPT-4风口：AI可创建PPT 还能分析Excel图表数据
雷递网雷建平 3月17日 AI正在驱动高科技发展,并让曾经的大象在跳舞. 美东时间3月16日周四,微软发布GPT-4平台支持的新AI功能,名为Copilot,它将适用于Word.PowerPoint ...
EXCEL——图表数据标签——展示两组比较的绝对值和变化率
有以下业务场景数据,为不同模型下某个线上活动的千人响应率. 企业对照组测试组 A 1.13 1.73 B 0.25 0.23 C 0.56 2.23 D 0.30 0.86 E 0.42 1.17 ...
Excel图表的美化操作
在上一篇文章(EXCEL完成一个柱形图与折线图组合图表)我们已经讲解了如何把图表创建出来,今天这篇文章主要讲解如何进行EXCEL图表美化操作第一步:图表坐标轴隐藏,这里坐标轴指的是垂直(数值)轴,我 ...
Excel图表导出高清矢量位图片并裁剪的方法
参考网站: 1. https://zhuanlan.zhihu.com/p/21715153 2. https://www.cnblogs.com/chuqianyu/p/14277807.html ...
excel图表交互联动_深入讲解EasyShu图表与引用数据动态联动功能
EasyShu一开始的架构是将制作好的图表最终返回给用户,不依赖用户工作表的单元格区域引用,可满足图表绘制后的脱离数据源分享传播,无奈用户最强烈的反馈是要求图表与数据保持联动,这一需求实在对EasyS ...
python写入excel表格数据绘制图表_(原创)xlsxwriter，python excel 写入数据\图表等操作_图表操作(二）...
前面分享了使用xlsxwriter创建excel和写入数据GUC:(原创)xlsxwriter,python excel 写入数据\图表等操作_创建.写入(一)zhuanlan.zhihu.com ...
图表嵌入到数据表格下方_在excel图表下方添加数据表 excel图表添加数据表
在excel图表下方添加数据表 excel图表添加数据表,前天刚学习了一个excel的新技术,叫"excel图表添加数据表"授课老师对我们说,这一技术的专业全称为"在ex ...
LabVIEW 将图表数据导出到Excel
LabVIEW 将图表数据导出到Excel 将图形或图表中的数据导出到Excel.如何才能做到这一点? 解答: 在LabVIEW中,有内置的功能将图标数据导出至Excel. 右键单击图表. 选择Exp ...
图表嵌入到数据表格下方_如何在excel图表下方添加数据表如何在excel图表中显示数值...
我们都知道excel图表是不包含excel数据表的详细数据的,如果我们想要在excel图表中看到具体的数据,我们可以在excel图表下方添加数据表,方便我们在看excel图表的时候可以直接看到具体数据 ...

excel图表数据发送到ppt

excel图表数据发送到ppt相关推荐

最新文章

热门文章