Data Member的成员没有findVBA

正如标题所说，代码将不会findActiveChart即使它之前select它。 我该如何解决它？

 Sub makeChart(myArr As Variant, title As String) Dim cht As Chart Dim sht As Worksheet Set sht1 = Sheets("Action Register") sht1.Shapes.AddChart.Select Set cht = sht.ActiveChart With ActiveChart .Parent.Top = Range("D20").Top 'Places chart onto specified area .Parent.Left = Range("D20").Left .Parent.Width = Range("D20:V20").Width .Parent.Height = Range("D20:D29").Height .ChartType = xlAreaStacked .SeriesCollection.NewSeries .SeriesCollection(1).Name = "=""Machine""" .SeriesCollection(1).XValues = Application.Index(myArr, , 1) .SeriesCollection(1).Values = Application.Index(myArr, , 2) .SeriesCollection.NewSeries .SeriesCollection(2).Name = "=""Handling""" .SeriesCollection(2).Values = Application.Index(myArr, , 3) .SeriesCollection.NewSeries .SeriesCollection(3).Name = "=""Fiber""" .SeriesCollection(3).Values = Application.Index(myArr, , 4) .SeriesCollection.NewSeries .SeriesCollection(4).Name = "=""Process""" .SeriesCollection(4).Values = Application.Index(myArr, , 5) .SeriesCollection.NewSeries .SeriesCollection(5).Name = "=""Other""" .SeriesCollection(5).Values = Application.Index(myArr, , 6) 'Legends and writes in values for graph .Axes(xlCategory, xlPrimary).HasTitle = True 'Labels .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Months" .Axes(xlValue, xlPrimary).HasTitle = True .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Rate(m)" .ChartArea.Font.Size = 20 End With End Sub 

Answer 1

工作表没有ActiveChart属性。 只要使用ActiveChart或Application.ActiveChart 。

Answer 2

顶部的权利，我可以看到这2个错误

 Dim sht1 As Sheets <-------- you forgot this (not sht as Worksheet) Set sht1 = Sheets("Action Register") sht1.Shapes.AddChart.Select Set cht = sht.ActiveChart <-------------- you got your naming all wrong here