使用VBA复制并粘贴Excel图表到PowerPoint

使用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会更快且不会出错。