|
hello,
the following macro was recorded and is since then a little bit prone to failure. it should take the values of a table with 3 columns and nearly 30 rows and name the data points with the names of the data series (take the integer values in a xy-diagram and name the points with the 3rd column-values).
it does not do that, it just displays the diagram along with only 2 valued data points. (runtime error 438 or object not found). but it leaves out all the other values and data points in the diagram!
could someone please help me? thank you a lot, yours, david
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlBubble
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).IncrementLeft -186.75
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).IncrementTop -145.5
[...]
ActiveChart.SeriesCollection(23).Select
ActiveChart.SeriesCollection(23).DataLabels.Select
ActiveChart.SeriesCollection(23).Select
ActiveChart.SeriesCollection(22).Select
ActiveChart.SeriesCollection(22).ApplyDataLabels
ActiveChart.SeriesCollection(19).Select
ActiveChart.SeriesCollection(19).ApplyDataLabels
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(22).Select
ActiveChart.SeriesCollection(22).DataLabels.Select
Selection.ShowValue = False
Selection.ShowSeriesName = True
ActiveChart.SeriesCollection(19).Select
ActiveChart.SeriesCollection(19).DataLabels.Select
Selection.ShowValue = False
Selection.ShowSeriesName = True
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).ApplyDataLabels
ActiveChart.SeriesCollection(11).Select
ActiveChart.SeriesCollection(11).ApplyDataLabels
ActiveChart.SeriesCollection(8).Select
ActiveChart.SeriesCollection(8).ApplyDataLabels
ActiveChart.SeriesCollection(12).Select
ActiveChart.SeriesCollection(12).ApplyDataLabels
ActiveChart.SeriesCollection(12).DataLabels.Select
Selection.ShowValue = False
Selection.ShowSeriesName = True
[...]
|