创建圆环图vba

我想从我定义的值和1-我定义的值创建一个圆环图。该值不存储在任何单元格中，只存储在长变量中。如何将数据源化为这两个值？我希望图表保存在变量中，因为我需要将其粘贴到PowerPoint演示文稿中

---

有什么帮助吗？

此函数在Excel中自己的工作表中创建一个图表，并返回对该图表的引用。您可以将其复制/粘贴到powerpoint中，然后使用“删除”最终将其删除

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