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

在PowerPoint中使用VBA创建图表，而不嵌入Excel数据，可以通过以下步骤实现：

打开PowerPoint并创建一个新的幻灯片。
按下Alt + F11打开Visual Basic for Applications（VBA）编辑器。
在VBA编辑器中，选择“插入”>“模块”以创建一个新的模块。
在新的模块中，编写VBA代码来创建图表。以下是一个示例代码，用于创建一个柱状图：

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