粘贴 Excel 图表答案

【问题标题】：Pasting Excel Chart粘贴 Excel 图表
【发布时间】：2019-12-11 06:15:09
【问题描述】：

我想使用 VBA 的“选择性粘贴”命令中的不同选项将我的 Excel 图表粘贴到 PowerPoint 幻灯片中。

我没有任何选项可以“在工作表中粘贴带有嵌入数据的图表”

我使用了ppPasteOLEObject，但它嵌入了整个 Excel 工作簿，因此 PowerPoint 文件的大小会增加。

Sub excltoppt()

Dim ppalApp As PowerPoint.Application
Dim ppalPres As PowerPoint.Presentation
Dim ppalSlide As PowerPoint.Slide

Set ppalApp = New PowerPoint.Application

ppalApp.Visible = True
ppalApp.Activate

Set ppalPres = ppalApp.Presentations.Open("C:\Desktop\Template.pptx")

Set ppalSlide = ppalPres.Slides(6)

'here it select data from specific excel sheet #6    
Sheets("S06").Select
Worksheets(1).ChartObjects(1).Copy

'here it paste at the selected specific slide #6
ppalSlide.Shapes.PasteSpecial DataType:=ppPasteText
'ole object option that I have tried is:-
'ppSlide.Shapes.PasteSpecial ppPasteOLEObject

End Sub

我尝试使用此选项，但它也不起作用：

PowerPointApp.CommandBars.ExecuteMso ("PasteExcelChartDestinationTheme")

我正在使用 Excel 2016。

【问题讨论】：

标签： excel vba

【解决方案1】：

以下内容对我有用，这会将图表粘贴到您的幻灯片中，只是不知道如何让它嵌入数据：

Sub excltoppt()

Dim ppalApp As PowerPoint.Application
Dim ppalPres As PowerPoint.Presentation
Dim ppalSlide As PowerPoint.Slide

    Set ppalApp = New PowerPoint.Application

    ppalApp.Visible = True

    Set ppalPres = ppalApp.Presentations.Open("C:\Desktop\Template.pptx")

    Set ppalSlide = ppalPres.Slides(6)

    Sheets("Sheet1").ChartObjects(1).Copy

    ppalSlide.Shapes.Paste

End Sub

【讨论】：

【解决方案2】：

试试这个

Sheets("S06").Select
Worksheets("S06").ChartObjects(1).Select
ActiveChart.ChartArea.Copy
ppaslide.select
ppalApp.ActiveWindow.View.Paste

For x = 1 To ppalSlide.Shapes.Count
    If ppalSlide.Shapes(x).HasChart Then
        ppalSlide.Shapes(x).LinkFormat.BreakLink
    End If
Next

【讨论】：

嗨 Ahmed Hassan，嗨 Xabier，感谢您的 cmets，您的两个选项都为我工作，它给了我一个嵌入式图表。但问题是它们连接回粘贴 Excel 图表的工作簿。完成宏过程后，它会删除那些临时文件。此后，如果我现在尝试在 Powerpoint 图表中编辑数据，它会给出以下错误消息：-“链接的文件不可用。要编辑链接，请单击文件选项卡。单击信息选项卡，然后在相关文档下，单击编辑文件的链接。”
如果我按照错误消息和“断开链接”中给出的消息进行操作，则图表中的编辑选项将变得不可见。
现在检查我用图片替换了它
感谢 Ahmed 的快速支持，但这给了我一个 Chart 的图像。我正在寻找一种代码，它可以创建一个嵌入数据的图表，就像我们在 powerpoint 本身中创建图表时那样。