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

你好，我是新来的，所以如果问题的格式是错误的，请原谅我。 无论如何，这里我试图根据下拉的变化来创build图表（2个下拉列表是具体的）。 我收到一个错误“Method'ChartType'的对象'_Chart'失败”和表中的一个空白图表。

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