将powerpoint中的图表数据提取到剪贴板(VBA代码几乎正常工作)

Sub ExtractChartData()
    Dim slide As Slide
    Dim shape As Shape
    Dim chart As ChartObject
    Dim dataRange As Range
    
    ' 遍历每个幻灯片
    For Each slide In ActivePresentation.Slides
        ' 遍历每个形状
        For Each shape In slide.Shapes
            ' 检查形状是否为图表
            If shape.HasChart Then
                Set chart = shape.Chart
                ' 获取图表数据范围
                Set dataRange = chart.ChartData.Workbook.Sheets(1).UsedRange
                ' 将数据复制到剪贴板
                dataRange.Copy
                Exit Sub ' 如果只需要提取第一个图表的数据，可以注释掉这行
            End If
        Next shape
    Next slide
End Sub