CB.EnumChart Example

This example initializes all internal variables, then steps through all the overlay charts, returns their paths and names, and puts this information in column C of a worksheet.

CB.Simulation 1000
CB.CheckData
Dim ChartID As String
Dim t As Integer
ChartID = CB.EnumChart(cbChtOverlay)
t = 0
While ChartID <> ""
   Range("C2").Offset(t).Value = ChartID
   t = t + 1
   ChartID = CB.EnumChart(cbChtOverlay)
Wend