使用VBA复制并粘贴Excel图表到PowerPoint
excelperfect
标签:VBAVBA的最大优势之一是可以无缝地在Office应用程序套件之间相互调用,例如,在Excel中操作PowerPoint。本文将使用VBA复制Excel中的一个图表,将粘贴到新创建的PowerPoint中。首先,在VBE中单击菜单“工具——引用”,在“引用”对话框中,找到并选取“Microsoft PowerPoint 16.0 Object Library”前的复选框。
图1这将允许Excel和PowerPoint彼此交互。下面是代码:Sub CopyChartToPPT() Dim oPPT As Object Dim oPres As Object Dim oSld As Object Dim oWs As Worksheet Dim oCht As ChartObject Set oPPT = CreateObject('PowerPoint.Application')
Set
oPres
=
oPPT.Presentations.Add(msoTrue) Set oSld = oPres.Slides.Add(1,
ppLayoutTitleOnly) Set oWs = ActiveWorkbook.Worksheets(1) Set oCht = oWs.ChartObjects(1) oCht.Select ActiveChart.ChartArea.Copy oSld.Shapes.PasteSpecial link:=msoTrueEnd Sub要将单个图表放入空白PowerPoint幻灯片,可将代码中的:Set oSld = oPres.Slides.Add(1, ppLayoutTitleOnly)修改为:Set oSld = oPres.Slides.Add(1, ppLayoutBlank)简单的几行代码就可以解决需要手动的操作。如果只是复制并粘贴少数几个图表,使用手动操作很容易完成。然而,如果有几十个图表,那么使用VBA会更快且不会出错。
因篇幅问题不能全部显示,请点此查看更多更全内容
Copyright © 2019- sceh.cn 版权所有 湘ICP备2023017654号-4
违法及侵权请联系:TEL:199 1889 7713 E-MAIL:2724546146@qq.com
本站由北京市万商天勤律师事务所王兴未律师提供法律服务