仅使用VBA在powerpoint中创建图表，而不嵌入excel数据

Sub CreateChartWithoutExcel()
    Dim pptChart As Chart
    Dim pptSlide As Slide
    Dim dataRange As Variant
    
    ' 创建一个新的幻灯片
    Set pptSlide = ActivePresentation.Slides.AddSlide(ActivePresentation.Slides.Count + 1, ppLayoutBlank)
    
    ' 定义图表数据
    dataRange = Array(Array("类别", "值"), Array("A", 10), Array("B", 20), Array("C", 30))
    
    ' 在幻灯片上添加一个图表
    Set pptChart = pptSlide.Shapes.AddChart2(201, xlColumnClustered).Chart
    
    ' 设置图表的数据源
    With pptChart
        .HasTitle = True
        .ChartTitle.Text = "示例图表"
        .SetSourceData Source:=dataRange
        .FullSeriesCollection(1).XValues = Application.WorksheetFunction.Index(dataRange, , 1)
        .FullSeriesCollection(1).Values = Application.WorksheetFunction.Index(dataRange, , 2)
    End With
End Sub