如何从链接Excel失效的PowerPoint图表中提取数据？

Got it, let's break down how to pull that hidden chart data out—since the chart still shows numbers, they're definitely stored in the PPT file somewhere. Here are four reliable methods to extract them:

This is the go-to solution for most cases:

• Select the uneditable chart in your PowerPoint slide
• Right-click it, then choose "Convert to Embedded Chart" (some versions might label this "Convert to Local Chart")
• Once converted, right-click the chart again and select "Edit Data"—a new Excel window will pop up with all the original values, fully editable.

If the first method fails, this raw file approach works:

• Open your PPT, go to File > Save As, and choose the save type "XML Presentation (*.xml)"
• Locate the saved XML file, open it with Notepad, VS Code, or any plain-text editor
• Search for the tag <c:v>—this is where PowerPoint stores chart numeric values. You'll find all your data points here, plus associated category labels nearby. Copy these values into a spreadsheet to organize them.

Perfect if you have multiple broken-link charts to handle:

1. Open your PPT, press Alt + F11 to launch the VBA Editor
2. Insert a new module (right-click your presentation in the Project pane > Insert > Module)
3. Paste this script:

Sub ExtractChartData()
    Dim sld As Slide
    Dim shp As Shape
    Dim cht As Chart
    Dim excelApp As Object
    Dim ws As Object
    Dim i As Integer, j As Integer
    
    ' Create a new Excel workbook
    Set excelApp = CreateObject("Excel.Application")
    Set ws = excelApp.Workbooks.Add.Sheets(1)
    
    ' Loop through all slides and charts
    For Each sld In ActivePresentation.Slides
        For Each shp In sld.Shapes
            If shp.HasChart Then
                Set cht = shp.Chart
                ' Write chart title as a header
                ws.Cells(ws.Rows.Count, 1).End(-4162).Offset(1, 0).Value = cht.ChartTitle.Text
                ' Extract series names and values
                For i = 1 To cht.SeriesCollection.Count
                    ws.Cells(ws.Rows.Count, 1).End(-4162).Offset(1, 0).Value = cht.SeriesCollection(i).Name
                    For j = 1 To cht.SeriesCollection(i).Values.Count
                        ws.Cells(ws.Rows.Count, 1).End(-4162).Offset(0, j).Value = cht.SeriesCollection(i).Values(j)
                    Next j
                Next i
            End If
        Next shp
    Next sld
    
    ' Show the Excel window with extracted data
    excelApp.Visible = True
End Sub

4. Run the script (press F5 or click the run button)—it will generate an Excel file with all your chart data pulled into a spreadsheet.

A quick workaround for small datasets:

• Select the chart and press Ctrl + C to copy it
• Open Excel, right-click the worksheet, choose "Paste Special > Picture (Enhanced Metafile)"
• Right-click the pasted metafile, select "Ungroup" (you may need to repeat this 2-3 times until all elements are separated)
• You'll see each data point as a separate text box—just copy these values into a new column or sheet to organize them.

内容的提问来源于stack exchange，提问作者Henrik