cellMatrix.net

Delete All Embedded Charts from a Workbook

Earlier this week a coworker approached me with a workbook that she needed help with. Although the workbook appeared to contain only text values, it was prompting to update links every time it was opened. Upon using Bill Manville's FindLink Utility, we were able to find links to embedded charts that had been hidden somewhere in the workbook. Since she didn't need the charts, we used the following macro to delete all of the embedded charts in her workbook.

Sub Loop_Thru_Embedded_Chart_Objects()
    Dim Sht As Worksheet
    Dim ChtObj As ChartObject
    For Each Sht In ActiveWorkbook.Sheets
        For Each ChtObj In Sht.ChartObjects
            ChtObj.Delete
        Next ChtObj
    Next Sht
End Sub