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

Sub CreateChart()
    Dim slide As Slide
    Dim chart As Chart
    Dim dataRange As Range
    
    ' 获取当前幻灯片
    Set slide = ActivePresentation.Slides(1)
    
    ' 创建一个图表对象
    Set chart = slide.Shapes.AddChart2(240, xlColumnClustered).Chart
    
    ' 创建一个数据范围
    Set dataRange = slide.Shapes.AddTable(3, 3, 200, 200, 300, 200).Table.Cell(1, 1).Shape.TextFrame.TextRange
    dataRange.Text = "Category" & vbTab & "Value1" & vbTab & "Value2" ' 设置表格标题
    
    ' 添加数据到数据范围
    dataRange.Cells(2, 1).Value = "Category 1"
    dataRange.Cells(2, 2).Value = 10
    dataRange.Cells(2, 3).Value = 20
    
    dataRange.Cells(3, 1).Value = "Category 2"
    dataRange.Cells(3, 2).Value = 15
    dataRange.Cells(3, 3).Value = 25
    
    ' 设置图表数据源
    chart.SetSourceData dataRange
    
    ' 设置图表标题
    chart.HasTitle = True
    chart.ChartTitle.Text = "Sample Chart"
    
    ' 设置图表位置和大小
    chart.Parent.Left = 100
    chart.Parent.Top = 100
    chart.Parent.Width = 400
    chart.Parent.Height = 300
End Sub