Question

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

任何帮助？

Answer 1

此功能在Excel中创建一个图表，并在其自己的工作表中返回对它的引用。你可以将它复制/粘贴到powerpoint中，然后你可以通过使用delete来最终摆脱它。

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

创建圆环图vba

1 个答案: