Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Get Embedded Charts
Public Sub GetEmbeddedCharts()
    Dim myChart As ChartObject
    Dim myCharts As ChartObjects
    Set myCharts = ActiveSheet.ChartObjects
    For Each myChart In myCharts
        Debug.Print myChart.Chart.name
    Next
End Sub