Question

我无法弄清楚如何在不影响使用VBA的初始数据的情况下向我创建的图表添加垂直线。最初的x-y散布与数据图很好。当我添加垂直线时，x轴标签全部变为0:00:00，大部分数据不可见。这是创建第一个图表的脚本：

With ChtSheet 
 .SeriesCollection.NewSeries
 .SeriesCollection(1).Name = "TPart1"

    .SeriesCollection(1).XValues = Sheets("Sheet1").Range(Sheets("Sheet1").Cells(FirstOrderNoData.Row, 1), Sheets("Sheet1").Cells(LastOrderNoData.Row, 1))
    .SeriesCollection(1).Values = Sheets("Sheet1").Range(Sheets("Sheet1").Cells(FirstOrderNoData.Row, PartTemp1Col.Column), Sheets("Sheet1").Cells(LastOrderNoData.Row, PartTemp1Col.Column))

    .SeriesCollection.NewSeries
    .SeriesCollection(2).Name = "TPart2"

    .SeriesCollection(2).XValues = Sheets("Sheet1").Range(Sheets("Sheet1").Cells(FirstOrderNoData.Row, 1), Sheets("Sheet1").Cells(LastOrderNoData.Row, 1))
    .SeriesCollection(2).Values = Range(Sheets("Sheet1").Cells(FirstOrderNoData.Row, PartTemp2Col.Column), Sheets("Sheet1").Cells(LastOrderNoData.Row, PartTemp2Col.Column))
.ChartType = xlXYScatter
.Axes(xlCategory, xlPrimary).TickLabels.NumberFormat = "hh:mm:ss"
End With

生成此图表： Good Chart

但是当我后来执行此操作时：

With ChtSheet.SeriesCollection.NewSeries()

            .AxisGroup = 2
            .Name = "Today"
            .XValues = Array(StartTime, StartTime)
            .Values = Array(0, PartTemp1Max)
            .ChartType = xlXYScatter


            End With

图表更改为： Bad chart

我已经尝试添加第二个y轴并在其上绘制“今天”系列，但同样的事情。任何人都可以帮助我绘制这条垂直线而不会弄乱x轴吗？谢谢。

图表中的垂直线影响x轴

0 个答案: