Multiple arrays

[austin350s10]

How can I adjust the following code so that both arrays will work? Currently this code loops through both arrays completely before finishing. Basically, what I am looking for here is a way to assign a charts title based on the findings of the GraphName array.

So when in position 0 of the GraphName array the chart title should use the title at position 0 of the GraphTitle array.

How can I fix this?

GraphTitle = Array("Actual Hours vs. Goal Hours", "Actual Days vs. Goal Days")
GraphName = Array("H1", "H2")
For r = 0 To UBound(GraphTitle)
For i = 0 To UBound(GraphName)

        Set MyChart = ActiveSheet.ChartObjects(GraphName(i)).Chart
               ' stuff with GraphName(i) here
   
        MyChart.SetElement (msoElementChartTitleAboveChart)
        
        MyChart.ChartTitle.Text = GraphTitle(r)


Next i
Next r

 

[Andrew Poulsom]

You only need one loop:

GraphTitle = Array("Actual Hours vs. Goal Hours", "Actual Days vs. Goal Days")
GraphName = Array("H1", "H2")
For i = LBound(GraphTitle) To UBound(GraphTitle)
    Set MyChart = ActiveSheet.ChartObjects(GraphName(i)).Chart
               ' stuff with GraphName(i) here
    MyChart.SetElement (msoElementChartTitleAboveChart)
    MyChart.ChartTitle.Text = GraphTitle(i)
Next i

 

[austin350s10]

interesting...that works perfectly but I don't get it. How does the loop even know to use the GraphName array?

For i = LBound(GraphTitle) To UBound(GraphTitle)

The way I see it your code only tells the loop to look at the GraphTitle array. I would love to understand exactly how this works. Thanks for the help!!

 

[Andrew Poulsom]

This is using the GraphName array:

Set MyChart = ActiveSheet.ChartObjects(GraphName(i)).Chart

Your arrays are of equal size so you only need one loop to index into them.

 

[austin350s10]

I see. Thanks for the education and the help!!!