成功と失敗の値をExcelで円グラフを作成する

Question

私はWebサイトで、デスクトップ、タブレット、モバイルの3種類のテスト結果を1つのテストケースで使用して、いくつかの手動テストを行っています。今度はすべてのテスト結果を円グラフに表示し、合格、失敗、および部分テストの合計結果を表示します。 Attached image is the example how I am representing this in the Excel。

Answer 1

ここにいくつかのコードがあります。 A1:F2にデータを入れる限り、ここに示す円グラフが作成されます。セクションのうちの2つが色付けされていることに注意してください。ウィンドウ通過（不透明な赤）とウィンドウの失敗（勾配赤）。もちろん、私がここであなたのために始めたものを拡張することによって、他のカテゴリと同じことをすることができます。

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