ドーナツチャートvbaを作成する

Question

定義した値と定義した値からドーナツチャートを作成したい。この値はどのセルにも格納されず、長い変数に格納されます。どのようにしてこれらの2つの値にデータを供給しますか？私はグラフをPowerPointプレゼンテーションに貼り付ける必要があるので、変数に保存します。

助けが必要ですか？

Answer 1

この関数は、Excelでチャートを独自のシートに作成し、そのチャートへの参照を返します。あなたはそれをコピーしてパワーポイントに貼り付けることができますし、最終的に削除を使って削除することができます。

Function CreateTwoValuesPie(ByVal x As Double) As Chart 
    Set CreateTwoValuesPie = Charts.Add 
    CreateTwoValuesPie.ChartType = XlChartType.xlPie ' or .xlDoughnut 
    With CreateTwoValuesPie.SeriesCollection.NewSeries 
    .Name = "This is a two-value Pie" 
    .Values = Array(x, 1 - x) 
    End With 
End Function 

Sub Testing() 
    Dim ch As Chart 
    Set ch = CreateTwoValuesPie(0.6) 

    ' Now copy/paste ch to PowerPoint or do whatever with it 
    ' Then if you want to get rid of it in Excel: 
    ch.Delete 
End Sub