Thread: Connect data markers

Deleting or assigning series based on empty cells will cause a problem.

If you switch chart type to column before deleting that should help.

I have also changed the way the ranges are assigned so only values rows are used.

The subscript error is caused by you selecting a sheet that does not exist in the file.

Code:

Private Sub Workbook_Open()
    UserForm1.Show
    Sheets("Splash Screen").Select  ' No sheet
End Sub

Check the range used for that series, is it correct?

Probably redundent code used whilst testing.
I use the macro recorder to generate code sometimes

make sure the chart has a legend before excuting the command

Code:

ActiveChart.HasLegend = True   ActiveChart.Legend.LegendEntries(ActiveChart.Legend.LegendEntries.Count).Delete

I don't get this when testing.

You already have code to remove excess series

Code:

    'Delete any series beyond Series 3 - July 18, 2008
    With ActiveSheet.ChartObjects(1).Chart
        Do While .SeriesCollection.Count > 3
            .SeriesCollection(4).Delete
        Loop
    End With

Hi Andy:

Thank you for your kind response.

As stated in my previous email, I added the code you suggested. Then here is what I did:

1. Clicked the Display Graph button
2. The graph was displayed properly with the legends Maximum $, Minimum $, and Pay Policy Line displayed partially in the gray area of the chart.
3. Clicked the Return button above the graph
4. For testing purposes, I clicked again on Display Graph. Observed that a new legend Series4 was introduced along with those stated in (2) above.

My assumption is that if the Display Graph button is clicked more than once, then the above can happen.

Can this be prevented, since the Display Graph button can be clicked many times for various reasons.

Also can the font of the legends on the right side of the graph be reduced, then perhaps they won't show up in the gray area of the graph.

Thanks Andy.

- Ravi

P.S. I tested on a clean copy and noticed that the first time the Display Graph button was clicked, the legend on the right side of the graph were in a small rectangle and was displayed on the top right corner and just had Maximum and Minimum. When I clicked the Display Graph button again, then the same legend was display right in the gray area of the graph and included the "Pay Policy Line".

I still can not reproduce the problem you describe.
I can press multiple times the display and return button. I can even delete legend entries or the whole legend and the chart is rebuit.

change font size using

Code:

    ActiveChart.Legend.Font.Size = 10