在excel中为通过值和失败值创建饼图

我已经为这个网站做了一些手工测试，我在桌面、平板和手机上对一个测试用例有3个不同的测试结果。现在，我想将我所有的测试结果表示成一个饼图，其中将显示通过、失败和部分测试用例结果的总数

这里有一些代码可以帮助您开始。只要您将数据放入

A1:F2

，它就会生成此处显示的饼图。请注意，其中两个部分是彩色的：窗口通过（纯红）和窗口失败（渐变红）。当然，你也可以对其他类别做同样的事情，通过扩展我在这里为你开始的内容

---

到目前为止，还没有人提出任何问题，而且与编程也没有任何关系。你做完了吗？是的，就是这个！我需要一些excel的帮助。我想以图表形式表示通过结果的总年龄百分比和失败结果的总年龄百分比。如果您需要更多信息，请告诉我。我已尝试使用普通的饼图功能插入它，并将颜色值分配给它的单元格。但是图形显示为空白。显示您的代码和一些示例数据，您更有可能获得帮助。

Sub pie()
Dim r As Range, chObj As ChartObject, pt1 As Point, pt2 As Point
Set r = ActiveSheet.Range("A1:F2")
Set chObj = ActiveSheet.ChartObjects.Add(Left:=100, Width:=375, Top:=75, Height:=225)
    With chObj
        .Chart.SetSourceData Source:=r
        .Chart.ChartType = xlPie
        Set pt1 = .Chart.FullSeriesCollection(1).Points(1)
        Set pt2 = .Chart.FullSeriesCollection(1).Points(2)
    End With
  With pt1.Format.Fill
      .Visible = msoTrue
      .ForeColor.RGB = vbRed 'RGB(255, 0, 0)
      .Transparency = 0
      .Solid
    End With
  With pt2.Format.Fill
      .Visible = msoTrue
      .ForeColor.RGB = vbRed 'RGB(255, 0, 0)
      .TwoColorGradient msoGradientDiagonalUp, 1
      .Transparency = 0
    End With
    chObj.Chart.HasLegend = True
    chObj.Chart.Legend.Height = 100
End Sub