[Excel][VBA] How to draw a line in a graph?

6
votes

Please view this image to get my clearly question: enter image description here

3
vbagraphexceldraw
Could you try to post a higher resolution graphic or elaborate on your question? The image's resolution does not make your question clear. – Jubbles
@Jubbles: I updated, please help! – hungbm06
Just add a second series to the plot, using the required coordinates. You only need two points. – Tim Williams
I can't do follow you! Would you give me a sample? – hungbm06

3 Answers

6
votes
Sub Tester()
    Dim s, d

    d = #4/18/2011# * 1 ''a bit of a hack, since I could figure out how to plot a date directly
    With ActiveSheet.ChartObjects("Chart 1").Chart 'adjust to suit

        Set s = .SeriesCollection.NewSeries()
        With s
            .Name = ""
            .XValues = Array(d, d)
            .Values = Array(90, 0)
            .MarkerStyle = xlMarkerStyleNone
            .Border.Color = vbRed
        End With

    End With

End Sub
3
votes

Excellll's answer is incomplete. If you simply add this data to what is obviously a LINE chart, it will not appear where intended. You have to convert the added series to an XY chart series (right click on the series, Chart Type).

Also, your line falls midway between 4/17 and 4/18, so you need to use noon on 4/17 as the X value, that is 4/17/11 12:00.

Here is a set of articles about adding lines to Excel charts: http://peltiertech.com/Excel/Charts/AddLine.html

Also, deleting the legend entry is done by selecting the text of the legend entry and pressing Delete. This takes two single clicks on the legend entry, not one double click.

0
votes

If you don't mind extra clutter in your workbook you can fill four cells with the following:

4/18/11     0
4/18/11    90

Add a new series to the chart with this data. If you don't want the new series to show up in the chart legend, then double-click on the red series name in the legend and press 'Delete'.