Question

我有max-height powerpoint presentation，其中图表的数据位于diagrams（当您双击图表时打开的图表）。

现在我想将subdatasheet发送给客户，但无法更改presentation中的数据，但可能会datasheet。

因此，仅仅从animations制作照片不是一种选择。

我尝试删除diagram，但这不起作用。任何人都知道如何在linkings上完成这项工作？

编辑：根据{{1}}我试过：

vba

这是有效的，但对我来说，看起来我得到了一幅无法想象的画面。

Answer 1

我使用此基础将PPT中的图表导出为Office图形（ppPasteEnhancedMetafile）：

Sub Export_to_Ppt()
'
Dim Ppt As PowerPoint.Application, _
    Pres As PowerPoint.Presentation

Set Ppt = CreateObject("PowerPoint.Application")
Set Pres = Ppt.Presentations.Open("C:\Template.potx")

Ppt.Visible = True

Sheets("SubDataSheet").ActiveChart.ChartArea.Copy

Pres.Slides.Add Index:=Pres.Slides.Count + 1, Layout:=ppLayoutTitleOnly
Pres.Slides(Pres.Slides.Count).Shapes.PasteSpecial ppPasteEnhancedMetafile
Pres.Slides(Pres.Slides.Count).Shapes.Title.TextFrame.TextRange.Text = "Chart Title"


Pres.SaveAs _
    Filename:="C:\OutPut_PPT.ppt", _
    FileFormat:=ppSaveAsOpenXMLPresentation

Set Ppt = Nothing
Set Pres = Nothing

End Sub

删除子数据表

1 个答案: