Question

我一直在努力解决这个问题。如果答案已经存在，请提前道歉，但我还没有找到答案。

我有一张图表，其中Y轴的最大值为100％。但是，X轴基于数据是可变的。例如，X轴可以达到+ 300％。

我想在图表上绘制一个垂直线，其中X轴是100％，因此对于超出100％的用户来说更明显。

非常感谢帮助！

Excel VBA技能通常很强，但在图表操作方面很弱。

Answer 1

Sub AddLine()

Dim cht As Chart, s As Series

    Set cht = ActiveSheet.ChartObjects(1).Chart

    Set s = cht.SeriesCollection.NewSeries
    With s
        .XValues = Array(100, 100)
        .Values = Array(0, 100)
        .Name = "100%"
        .MarkerStyle = -4142
        With .Format.Line
            .Weight = 1
            .ForeColor.RGB = RGB(255, 0, 0)
        End With
    End With

End Sub

图表线以100％绘制

1 个答案: