[Excel] [VBA] Как нарисовать линию на графике?

Question

Пожалуйста, просмотрите это изображение, чтобы получить мой четкий вопрос:

Answer 1

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

Answer 2

Ответ Excellll неполный.Если вы просто добавите эти данные к графику LINE, он не будет отображаться там, где предполагалось.Необходимо преобразовать добавленную серию в серию диаграмм XY (щелкните правой кнопкой мыши серию, тип диаграммы).

Кроме того, ваша линия находится посередине между 4/17 и 4/18, поэтому вам нужно использовать полдень4/17 как значение X, то есть 17.04.11 12: 00.

Вот несколько статей о добавлении линий в диаграммы Excel: http://peltiertech.com/Excel/Charts/AddLine.html

Также,удаление записи легенды выполняется путем выбора текста записи легенды и нажатия кнопки «Удалить».Это займет два одиночных клика по записи легенды, а не один двойной щелчок.

Answer 3

Если вы не возражаете против дополнительного беспорядка в своей рабочей книге, вы можете заполнить четыре ячейки следующим текстом:

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

Добавить новую серию в диаграмму с этими данными.Если вы не хотите, чтобы новая серия отображалась в легенде диаграммы, дважды щелкните название красной серии в легенде и нажмите «Удалить».