I have a chartsheet with a combobox. I want to loop through the combobox that
has 15 items. However the following macro gives an error "1004". It loops
from item 1 to 2 to 4 to 7 to 11 before giving the error. What goes wrong?


Sub LoopThroughCombo()

Dim i As Integer
Dim j As Integer

ActiveChart.DropDowns(1).ListIndex = 1
i = 0
j = UBound(ActiveChart.DropDowns(1).List)
MsgBox "j = " & j
For i = 0 To j - 1

'CommandBars("Custom").Controls(1).List (4) < "View News"
ActiveChart.DropDowns(1).ListIndex = ActiveChart.DropDowns(1).Value + i
'Charts(1).DropDowns(1).ListIndex = i + 1
MsgBox ActiveChart.DropDowns(1).Value & " - " &
ActiveChart.DropDowns(1).ListIndex
Next
' Call UpdateChart(ListIndex)
End Sub

with ActiveChart.Dropdowns(1)
for i = 1 to .Listcount
.ListIndex = i
MsgBox .Value & " - " & _
.ListIndex
Next
End With

I assume you don't have a macro assigned to the Dropdown.

--
Regards,
Tom Ogilvy


"Martin Los" wrote in message
...
I have a chartsheet with a combobox. I want to loop through the combobox
that
has 15 items. However the following macro gives an error "1004". It loops
from item 1 to 2 to 4 to 7 to 11 before giving the error. What goes wrong?


Sub LoopThroughCombo()

Dim i As Integer
Dim j As Integer

ActiveChart.DropDowns(1).ListIndex = 1
i = 0
j = UBound(ActiveChart.DropDowns(1).List)
MsgBox "j = " & j
For i = 0 To j - 1

'CommandBars("Custom").Controls(1).List (4) < "View News"
ActiveChart.DropDowns(1).ListIndex = ActiveChart.DropDowns(1).Value + i
'Charts(1).DropDowns(1).ListIndex = i + 1
MsgBox ActiveChart.DropDowns(1).Value & " - " &
ActiveChart.DropDowns(1).ListIndex
Next
' Call UpdateChart(ListIndex)
End Sub

Dear Tom and Vacation´s Over:

You are both completely right in your comments. Thanks a 1.000.000!

Thanks to your comments I can get on with the work of copying to Powerpoint.

Martin

P.S. My holiday has indeed just ended and as you can see I can do with a
refresh course (grin)

"Tom Ogilvy" escribió:

with ActiveChart.Dropdowns(1)
for i = 1 to .Listcount
.ListIndex = i
MsgBox .Value & " - " & _
.ListIndex
Next
End With

I assume you don't have a macro assigned to the Dropdown.

--
Regards,
Tom Ogilvy


"Martin Los" wrote in message
...
I have a chartsheet with a combobox. I want to loop through the combobox
that
has 15 items. However the following macro gives an error "1004". It loops
from item 1 to 2 to 4 to 7 to 11 before giving the error. What goes wrong?


Sub LoopThroughCombo()

Dim i As Integer
Dim j As Integer

ActiveChart.DropDowns(1).ListIndex = 1
i = 0
j = UBound(ActiveChart.DropDowns(1).List)
MsgBox "j = " & j
For i = 0 To j - 1

'CommandBars("Custom").Controls(1).List (4) < "View News"
ActiveChart.DropDowns(1).ListIndex = ActiveChart.DropDowns(1).Value + i
'Charts(1).DropDowns(1).ListIndex = i + 1
MsgBox ActiveChart.DropDowns(1).Value & " - " &
ActiveChart.DropDowns(1).ListIndex
Next
' Call UpdateChart(ListIndex)
End Sub

From 7th grade math.
...(advantages of faterhood - constant reminders of "easy math")

1,2,4,7,11. 15
is a series where you are adding 1,2,3,4,5,....n to the previous number
so look at how your counter is being set

Looks like this is the culprit
ActiveChart.DropDowns(1).ListIndex = ActiveChart.DropDowns(1).Value + i
sets list index i higher than it was, try + 1(one) instead

ActiveChart.DropDowns(1).ListIndex = ActiveChart.DropDowns(1).Value + 1

"Martin Los" wrote:

I have a chartsheet with a combobox. I want to loop through the combobox that
has 15 items. However the following macro gives an error "1004". It loops
from item 1 to 2 to 4 to 7 to 11 before giving the error. What goes wrong?


Sub LoopThroughCombo()

Dim i As Integer
Dim j As Integer

ActiveChart.DropDowns(1).ListIndex = 1
i = 0
j = UBound(ActiveChart.DropDowns(1).List)
MsgBox "j = " & j
For i = 0 To j - 1

'CommandBars("Custom").Controls(1).List (4) < "View News"
ActiveChart.DropDowns(1).ListIndex = ActiveChart.DropDowns(1).Value + i
'Charts(1).DropDowns(1).ListIndex = i + 1
MsgBox ActiveChart.DropDowns(1).Value & " - " &
ActiveChart.DropDowns(1).ListIndex
Next
' Call UpdateChart(ListIndex)
End Sub