使用2个下拉列表添加图表，其值位于不同的工作表中

Question

大家好，我是新来的，如果问题的格式错误，请原谅。无论如何，在这里我试图根据下拉列表的变化创建图表（2个下拉列表是具体的）。我收到错误“对象'_Chart'的方法'ChartType'失败”和工作表上的空白图表。

Sub DropDown27_Change()
Dim a As Range, b As Range
Set a = Sheet8.Range("I11")
Set b = Sheet8.Range("K11")
If a.Value = 1 And b.Value = 1 Then
 ActiveSheet.Shapes.AddChart.Select
 ActiveSheet.Shapes(1).Top = 10
 ActiveSheet.Shapes(1).Left = 10
 ActiveChart.ChartType = xlColumn
 ActiveChart.PlotArea.Select
 ActiveChart.SetSourceData Source:=Range("EquityC")
 ActiveChart.HasTitle = False
 End If
End Sub

Answer 1

对于ChartType而不是xlColumn使用xlColumnClustered