vba操作excel如何在add sparkline时 显示高点和底点

在 VBA 操作 Excel 中，添加 Sparklines 时可以使用 `HighPoint` 和 `LowPoint` 参数来显示高点和底点。以下是一个示例代码：

Sub AddSparklineWithHighLowPoints()
    Dim sparkRange As Range
    Dim sparkLineRange As Range
    
    '设置 Sparkline 的数据范围
    Set sparkRange = Range("A1:D1")
    
    '设置 Sparkline 的显示范围
    Set sparkLineRange = Range("E1:E1")
    
    '添加 Sparkline 并显示高点和底点
    sparkLineRange.SparklineGroups.Add Type:=xlSparkLine, SourceData:=sparkRange, HighPoint:=True, LowPoint:=True
End Sub

在上面的代码中，我们使用了 `HighPoint:=True` 和 `LowPoint:=True` 参数来显示 Sparkline 中的高点和底点。你可以根据自己的需求进行调整。

相关问题

使用vba在excel绘制sparkline时，如何标记最高点和最低点

可以使用以下代码来绘制sparkline并标记最高点和最低点：

Sub DrawSparklineWithMinMax()

    '定义变量
    Dim sparkRange As Range
    Dim minCell As Range, maxCell As Range
    Dim minVal As Double, maxVal As Double
    
    '选择要绘制sparkline的范围
    Set sparkRange = Range("A1:A10")
    
    '计算最小值和最大值
    minVal = WorksheetFunction.Min(sparkRange)
    maxVal = WorksheetFunction.Max(sparkRange)
    
    '找到最小值和最大值所在的单元格
    Set minCell = sparkRange.Find(What:=minVal, LookIn:=xlValues)
    Set maxCell = sparkRange.Find(What:=maxVal, LookIn:=xlValues)
    
    '绘制sparkline
    With ActiveSheet.Shapes.AddChart(xlLineMarkers, Left:=minCell.Left, Top:=minCell.Top, Width:=100, Height:=50)
        With .Chart.SeriesCollection.NewSeries
            .Values = sparkRange.Value
        End With
        .Chart.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
        .Chart.Axes(xlCategory).CategoryType = xlCategoryScale
        .Chart.SetElement (msoElementDataLabelOutSideEnd)
    End With
    
    '在最小值和最大值所在的单元格上标记出对应的值
    minCell.Offset(-1, 1).Value = "Min: " & minVal
    maxCell.Offset(1, 1).Value = "Max: " & maxVal

End Sub

在这个代码中，我们首先选择要绘制sparkline的范围（这里是A1:A10）。然后，使用WorksheetFunction.Min和WorksheetFunction.Max函数计算出最小值和最大值。接下来，我们使用Find方法找到最小值和最大值所在的单元格。然后，使用Shapes.AddChart方法在最小值所在的单元格上绘制sparkline。最后，我们在最小值和最大值所在的单元格旁边标记出对应的值。

使用vba在excel绘制sparkline折线图时，如何标记最高点和最低点

可以使用VBA代码来标记最高点和最低点。下面是一个示例代码：

Sub AddHighLowPoints()
    Dim s As Sparkline
    Dim i As Integer
    Dim maxVal As Double
    Dim minVal As Double
    Dim maxIndex As Integer
    Dim minIndex As Integer
    
    Set s = ActiveCell.SparklineGroups.Item(1).Sparklines.Item(1)
    
    ' Find the maximum and minimum values
    maxVal = Application.WorksheetFunction.Max(s.Points)
    minVal = Application.WorksheetFunction.Min(s.Points)
    
    ' Find the index of the maximum and minimum values
    For i = 1 To s.Points.Count
        If s.Points(i) = maxVal Then
            maxIndex = i
        End If
        If s.Points(i) = minVal Then
            minIndex = i
        End If
    Next i
    
    ' Add markers for the maximum and minimum values
    s.SeriesColor.Color = RGB(255, 255, 255)
    s.Points(maxIndex).MarkerStyle = xlMarkerStyleTriangle
    s.Points(maxIndex).MarkerColor.Color = RGB(255, 0, 0)
    s.Points(minIndex).MarkerStyle = xlMarkerStyleTriangle
    s.Points(minIndex).MarkerColor.Color = RGB(0, 255, 0)
End Sub

这个代码假设你已经有了一个sparkline折线图，它是单元格的第一个SparklineGroup中的第一个Sparkline。如果不是这种情况，你需要根据你的情况进行修改。

代码首先找到最高点和最低点的值和它们的索引，然后将标记添加到这些点上。在这个示例中，最高点的标记为红色三角形，最低点的标记为绿色三角形。你可以根据需要修改标记的样式和颜色。