I really would expect both the "for i = 1 to .chartobjects.count" and the
For each shp in .Shapes loop (with if msoChart test) to work correctly.
Possibly there's something else in your own code at fault, or some other bug
that we have all missed.

If you like you can send me a zipped stripped down non-sensitive version of
what you have. Make a copy of your book, prune as much as possible in terms
of data, charts, sheets and not least code; leaving just enough to
demonstrate the problem.

Regards,
Peter T
pmbthornton gmail com

"bart13" wrote in message
...[color=blue][i]

Yes - very much so. The straight loop (as in "for i = 1 to
activesheet.chartobjects.count" ) has wrong results, just like every
other attempt and regardless of whether the if test was being used or
not. There are 6 charts on the tab, only three show up in both the
actual text file and the debug print statement.

No matter what the code is, charts are being skipped.

To state it another way, Pict.Name and Pict.Chart.Name return the exact
same matching values - every time. But both only return three names and
there are six charts, and all six have unique names in the name box.

No matter if I look at the output in the text file or from the debug
print statement, its the same issue. Six charts in the tab, only three
recognized.


And I do betray my ancient status as a coder. The last time I did any
Basic coding, there was no such thing as a for each loop so the "for i
= 1 to ..." is normal to me.

I did double check the name box again for all six charts, and all the
names are both unique and do not contain punctuation either (unless an
underscore is considered punctuation).

I'm obviously missing something since it appears you're saying I have
dupe names, but I have no way of which I'm aware to change the
duplicate ones nor is there any code that I can run which will
distinguish the dupes.

The only way that works on new copied charts is not to change the name
but rather hard code it into a select case set of statements based on
the "Chart ###" name.

Are you saying that this is expected behavior and an open and old bug
(or something similar), and that I should just continue to do the hard
coding and work around? I'm not trying to be accusatory, just in case.

Regards,
bart


Peter T;678438 Wrote:
I did try the normal loop based on max chart count and the results
were-
the same. Sorry, I just didn't post it since there was no new data.-

I assume by "the normal loop" you mean
for i = 1 to activesheet.chartobjects.count
although most people might consider "For..Each" as the "normal" way to
loop
objects.

Are you absolutely sure the dubug results are different with the
different
methods of looping.

Here's yet another way you can loop your charts

Sub test()
Dim shp As Shape, chtObj As ChartObject, cht As Chart
For Each shp In ActiveSheet.Shapes
If shp.Type = msoChart Then
i = i + 1
Set chtObj = shp.DrawingObject
Set cht = chtObj.Chart
Debug.Print i, chtObj.Name, cht.Name
End If
Next
End Sub

I would not expect this to work differently to a For i = 1 to
..Chartobjects.Count loop

From what you have described about chartobjects having been renamed and

copied I'm not surprised your For Each loop has failed to reference all

correctly.

I know it might seem odd but actually, as your subject line suggests,
there
can be a bug of sorts when looping For Each with any object type at the

'DrawingObject' level; of which ChartObject is a sub type. Apart from
picking up the wrong object, in the case of duplicate names, names that

include punctuation can be missed completely. Remember, we are talking

about ChartObject name here, which is not (normally) same as
chartobject.Chart.Name (though chartObject & Shape names will be the
same).

Regards,
Peter T

"bart13" wrote in message
...

It was meaningful to me in the sense that it displayed exactly what I
was expecting. Charts are just plain being missed in the loop, no
matter how the loop is constructed or even if the if statement is
removed. The ChartObjects are getting corrupted when renamed, and its
pretty consistent.

I did try the normal loop based on max chart count and the results
were
the same. Sorry, I just didn't post it since there was no new data.

Thanks for clarifying on the grouping. I've seen it on one of the
properties menus but never took it any further since I seldom use any
extra chart elements like text boxes, etc.

I hope Mr. Peltier jumps in with an idea or two. I'm at my wits end.

It seems that every time I copy a chart now and then rename it, the
ChartObject gets corrupted and will never again be seen by any loop.
If
I don't rename it and just translate the "Chart ###" name to my own
filename in a select case statement, all is well.

I've even tried deleting about 30 of the extra charts in the main
chart
tab on the theory that there's some unknown limit I've exceeded, but
it
made no difference.

bart13







--
bart13