Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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