如何在与特定值范围的最后一个值关联的图形中动态插入水平线

Question

我正在尝试在从 table 接收 5 个系列数据的图表上自动插入一条水平线。每过一天，我都会向 table 添加另一行值。我想在从这 5 个系列获得的图表中插入一条水平线（它的 y 坐标）从这些系列之一的最后一个值更新，代表过去 30 天的飞水消耗量。我想在 Excel 工作簿中使用 VBA。我可以寻求帮助吗？谢谢。

图表将是这样的：

Answer 1

如果添加额外的列不可行，请尝试此代码：

Sub SubExtraLine()
    
    'Declarations.
    Dim ObjChart As Object
    Dim RngCell As Range
    Dim DblCounter As Double
    Dim VarSeries As Variant
    Dim ObjSeries As Object
    Dim StrSeriesName As String
    
    'Settings.
    Set RngCell = Range("D1").End(xlDown) '‹ Specify here the cell with the value.
    Set ObjChart = Shapes("Chart 1") '‹ Specify here the chart.
    StrSeriesName = "Consumo em 30 dias" '‹ Specify here the name of the line.
    
    'Checking the maximum number of values for each series of ObjChart.
    For Each VarSeries In ObjChart.Chart.SeriesCollection
        DblCounter = Excel.WorksheetFunction.Max(DblCounter, UBound(VarSeries.Values))
        'If a series named as StrSeriesName already exists, it's deleted.
        If VarSeries.Name = StrSeriesName Then
            VarSeries.Delete
        End If
    Next
    
    'Setting VarSeries as the formula for the new series.
    Set VarSeries = Nothing
    VarSeries = "="
    For DblCounter = DblCounter To 1 Step -1
        VarSeries = VarSeries & RngCell.Parent.Name & "!" & RngCell.Address & ","
    Next
    VarSeries = Left(VarSeries, Len(VarSeries) - 1)
    
    'Creating the new series.
    Set ObjSeries = ObjChart.Chart.SeriesCollection.NewSeries
    ObjSeries.Name = "=""" & StrSeriesName & """"
    ObjSeries.Values = VarSeries
    
End Sub

如何在与特定值范围的最后一个值关联的图形中动态插入水平线

How to insert dynamically an horizontal line in a graph associated with the last value of a certain range of values

excel

vba

excel-2010

vba7