仅在没有嵌入Excel数据的情况下使用VBA在PowerPoint中创建图表 [英] Creating a chart in powerpoint using VBA only without embedded excel data

问题描述

我正在做一个个人PowerPoint项目，我想在PowerPoint中使用ActiveX使幻灯片更具交互性会很酷。我有一些ActiveX框，您可以在其中设置人口和年增长率，最后一步是将我正在获得的5年预测数据绘制在折线图上。我尝试过使用基于EXCEL的VBA，但大多数解决方案似乎都需要从工作表中提取数据，所以在PowerPoint中不起作用。

我还尝试了以下代码来构建图表，跳过了对工作表的需要，但无济于事，因为我得到了运行时错误424：需要对象错误：

Sub AddChart()

    Dim cht     As Chart
    Dim ser     As Series

    Set cht = Charts.Add
    cht.ChartType = xlColumnClustered
    Set ser = cht.SeriesCollection.NewSeries
    ser.XValues = Array(1, 3, 5, 7, 9)
    ser.Values = Array(2.4, 3.2, 5.7, 12.67)

End Sub

有什么解决方案吗？还是我在这里白费力气？

谢谢！

推荐答案

Powerpoint没有Charts.Add，但Shapes.AddChart2或.AddChart

这样的事情应该会让您振作起来：

Sub AddChart()
    Dim cht As Chart
    Dim ser As Series

    Set cht = ActivePresentation.Slides(1).Shapes.AddChart(-1, xlColumnClustered).Chart
    Set ser = cht.SeriesCollection.NewSeries

    ser.XValues = Array(1, 3, 5, 7, 9)
    ser.Values = Array(2.4, 3.2, 5.7, 12.67)
End Sub

这篇关于仅在没有嵌入Excel数据的情况下使用VBA在PowerPoint中创建图表的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！