도넛 차트 만들기 vba

Question

내가 정의한 값과 1로 정의한 값에서 도넛 형 차트를 만들고 싶습니다. 이 값은 셀에 저장되지 않지만 긴 변수에 저장됩니다. 데이터를이 두 값으로 가져 오는 방법은 무엇입니까? 차트를 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