使用VBA复制并粘贴Excel图表到PowerPoint
标签：VBA
VBA的最大优势之一是可以无缝地在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:=msoTrue
End Sub要将单个图表放入空白PowerPoint幻灯片，可将代码中的：
Set oSld = oPres.Slides.Add(1, ppLayoutTitleOnly)
修改为：
Set oSld = oPres.Slides.Add(1, ppLayoutBlank)
简单的几行代码就可以解决需要手动的操作。如果只是复制并粘贴少数几个图表，使用手动操作很容易完成。然而，如果有几十个图表，那么使用VBA会更快且不会出错。
本文参与 腾讯云自媒体同步曝光计划，分享自微信公众号。
原始发表：2022-08-06，如有侵权请联系 cloudcommunity@tencent.com 删除
评论
登录后参与评论
推荐阅读
腾讯云开发者
