如何用python在excel中绘制迷你表sparkline

要在 Excel 中绘制迷你表 sparkline，可以使用 Python 的 openpyxl 库。以下是一个简单的示例代码：

from openpyxl import Workbook
from openpyxl.chart import (
    LineChart,
    Reference,
    Series,
)

# 创建一个新的工作簿
wb = Workbook()
ws = wb.active

# 在单元格中添加数据
ws['A1'] = 1
ws['A2'] = 3
ws['A3'] = 2
ws['A4'] = 5
ws['A5'] = 4

# 创建一个 sparkline
chart = LineChart()
data = Reference(ws, min_col=1, min_row=1, max_col=1, max_row=5)
series = Series(data, title="My Data")
chart.series.append(series)
chart.style = 12
chart.width = 5
chart.height = 2

# 在工作表上添加 sparkline
ws.add_chart(chart, "B1")

# 保存工作簿
wb.save("sparkline.xlsx")

这个代码将在 A 列中添加数据，然后创建一个 sparkline 并将其放置在 B1 单元格中。您可以更改数据和位置以适应您的需求。

相关问题

帮我写一个vba在excel中绘制sparkline的代码

以下是一个简单的 VBA 代码，用于在 Excel 中绘制 Sparkline：

Sub DrawSparkline()
    Dim sparkRange As Range
    Dim sparkCell As Range
    Dim sparkSheet As Worksheet
    Dim sparkChart As SparklineGroup
    
    '设置要绘制 Sparkline 的范围
    Set sparkRange = Range("A1:A10")
    
    '设置要绘制 Sparkline 的工作表
    Set sparkSheet = Worksheets("Sheet1")
    
    '创建 SparklineGroup 对象
    Set sparkChart = sparkSheet.SparklineGroups.Add(Type:=xlSparkLine)
    
    '循环遍历每个单元格，绘制 Sparkline
    For Each sparkCell In sparkRange
        sparkChart.SeriesColor = sparkCell.Interior.Color '设置 Sparkline 的颜色
        sparkChart.AddData SourceData:=sparkCell '将单元格添加到 SparklineGroup 中
    Next sparkCell
    
    '调整 Sparkline 的样式和位置
    With sparkChart
        .DisplayHidden = False
        .AxisVisible = False
        .LineWeight = xlThin
        .LineWeight = xlThin
        .MinScaleType = xlSparkScaleGroup
        .PlotBy = xlColumns
        .Location Where:=xlLocationAsNewSheet, Name:=sparkSheet.Name
    End With
End Sub

在这个示例中，我们首先设置要绘制 Sparkline 的范围（变量 `sparkRange`），然后设置要绘制 Sparkline 的工作表（变量 `sparkSheet`）。接下来，我们通过 `SparklineGroups.Add` 方法创建了一个 `SparklineGroup` 对象（变量 `sparkChart`），并使用 `For Each` 循环遍历要绘制的每个单元格。在循环中，我们使用 `AddData` 方法将每个单元格添加到 `SparklineGroup` 中。

最后，我们使用 `With` 语句调整 Sparkline 的样式和位置。在这个示例中，我们设置了 Sparkline 的颜色、线条粗细和最小值比例类型，然后将其放置在一个新的工作表中。

帮我写一个vba在excel中绘制sparkline的代码，读取sheet2中B2:B100的数据，随后在sheet1中的B2单元格进行绘制

以下是一个简单的 VBA 代码示例，可以在 Excel 中绘制 Sparkline：

Sub DrawSparkline()
    Dim sparkRange As Range
    Dim sparkLocation As Range
    
    ' 设置范围和位置
    Set sparkRange = Worksheets("Sheet2").Range("B2:B100")
    Set sparkLocation = Worksheets("Sheet1").Range("B2")
    
    ' 绘制 Sparkline
    sparkLocation.SparklineGroups.Add Type:=xlSparkLine, SourceData:=sparkRange
End Sub

这个代码会在 Sheet1 的 B2 单元格中绘制一个 Sparkline，它的数据来自 Sheet2 的 B2:B100 范围。你可以将这段代码复制到 VBA 编辑器中，并将其保存到你的工作簿中。在需要绘制 Sparkline 的时候，只需运行这个宏即可。