使用数组创建饼图

Question

我正在尝试基于数组（而不是范围）创建饼图。数组是[11,10,1]（我有其他代码填充数组）。

Dim type_chart As Chart
Dim type_array(2) As Integer
Set type_chart = Charts.Add
type_chart.ChartType = xlPie
type_chart.SeriesCollection(1).Values = type_array

在上面代码的最后一行，我收到一个“无效参数”错误。

此外，它不必使用数组，但不能使用Range。

Answer 1

您的图表需要在一个范围内工作。找到您可以使用的空白区域。尝试以下内容：

my_temp_range = "A10:C10"
ActiveSheet.Range(my_temp_range) = type_array
type_chart.SeriesCollection(1).Values = ActiveSheet.Range(my_temp_range)

一旦您使用临时范围，您可能甚至不需要最后一行（只要数组的大小不会改变）。您可以提前设置图表。